use Data::Dumper;
use File::Find;

my %filesize;
my %bins;
my $num_bins = 0;
my $max_bin_size = 10*1000*1000;
my $top_dir = '.';

find(sub { $filesize{$File::Find::name} = -s }, $top_dir);

for my $file (sort { $filesize{$b} <=> $filesize{$a} } keys %filesize) {
  my $fsize = $filesize{$file};
  my $bin;
  for (keys %bins) {
    if ($bins{$_}{size} + $fsize < $max_bin_size) {
      $bin = $_;
      last;
    }
  }
  $bin = $num_bins++ if not defined $bin;
  $bins{$bin}{size} += $fsize;
  push @{$bins{$bin}{files}}, $file;
}

print Dumper(\%bins);