Select Code to Download

for $i (sort keys(%bibliography)){
  print "$i", "\n";
...
     print "$j\n";
   } 
}

$VAR1 = {
          'Forrest1996' => {
...
                          'year' => '2000'
                        },
};