use warnings;
use strict;
use File::Slurp qw(read_dir);

my @files = sort { -s $a <=> -s $b } grep { -f } read_dir('./');