sort files by size

files_by_size.pl

# list files by size recursively

use strict;
use warnings;
use File::Find;

my @seen;

sub process_file {
    push(@seen, [-s $_, $_]) if -f $_;
}

find({wanted => \&process_file, no_chdir => 1}, ".");
@seen = sort {@{$a}[0] <=> @{$b}[0]} @seen;

for my $pair (@seen) {
    my $n = sprintf("%.2f", @{$pair}[0] / 1000000);
    print ("$n => " . (@{$pair}[1]) . "\n");
}