%hash = map { $_ => $_ } (1..10);
print qq{\$hash{$_} => $_\n} for sort {$a <=> $b} keys %hash;