print "  Name: ", $entry->{name}, 
          " Reference: ", $entry->{reference}, "\n";