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