-my $eprint = $dataset->dataobj( 21 );
-warn dump( $eprint->get_value('institution'), $institution );
+warn ref( $list );
+
+#warn "# ids = ",dump( $list->ids );
+
+my $info = { count => 0 };
+$list->map( sub {
+ my( $session, $dataset, $eprint, $info ) = @_;
+
+ my $biblionumber = $eprint->get_value('biblionumber');
+
+ $info->{biblionumber}->{$biblionumber}++;
+ $info->{count}++;
+
+}, $info );
+warn dump( $info );
+
+=for update
+
+#my $eprint = $dataset->dataobj( 21 );
+#warn dump( $eprint->get_value('institution'), $institution );