my @sorted_files = sort_by { sprintf( '%012d' x 4, (split /_/, $_)[1,7,8,9]) } @files;