@files = glob("/bin/*");
@sorted = 
        @files[
        map { /(\d+)$/g }
        sort 
        map { sprintf "%012d %d", -s $files[$_], $_ } 
        0..@files-1];
print "@sorted$/";