- print "$_ $name{$_}\n" for keys %name;
+ print "$_ $name{$_}\n" for sort keys %name;