for (keys %name){
   print "$_ = $names{$_}\n";
}