Select Code to Download

sub files_sort {
    my $first_number; 
...

    $first_number <=> $second_number;
}

sub my_sort {
    parse_file_name($a) <=> parse_file_name($b);
...
        return 0;
    }
}