Select Code to Download

for my $bibkey (sort keys %bibliography) {
   my $entry = $bibliography{$bibkey};
...
      print "\t$key => ", $entry->{$key}, "\n";
   }
}