foreach $number ( sort { $a <=> $b } keys %name ) {
    print "\t$number\t\t$name{$number}\n";
}