#!/usr/bin/perl
 
use strict;
use warnings;
no warnings qw /syntax/;
 
open my $fh => "find / -type f |" or die;
 
my @sizes = map {[-1 => ""]} 1 .. 10;

while (<$fh>) {
    chomp;
    my $size = -s;
    next if $size < $sizes [-1] [0];
    foreach my $i (0 .. $#sizes) {
        if ($size >= $sizes [$i] [0]) {
            splice @sizes => $i, 0 => [$size => $_];
            pop @sizes;
            last;     
        }
    }
}
 
@sizes = grep {length $_ -> [1]} @sizes;
printf "%8d: %s\n" => @$_ for @sizes;                                 
 
__END__