sub file_sort 
{
    $a =~ /(\d*)$/;
    my $a_num = $1;
    $b =~ /(\d*)$/;
    my $b_num = $1;

    $a_num <=> $b_num;
}

foreach my $file (sort &file_sort keys %hash) {
    print "$key \n";
}