for( \%a, \%b, \%c ){
   print sort keys %$_, "\n"; 
}