foreach my $file (sort {$a <=> $b} keys %hash) {
 print "$key \n";
}

##</code><code>##

perl -e 'print qq{[$_]\n} for ( sort { $a <=> $b } qw(file1 file10z file11s file2q file20z file21f) )'