Select Code to Download

my @file_list;
sub files_wanted {
...
  my $file_size = -s $raw_file;
  push @{$files{"$file ($file_size bytes)"}}, $raw_file;
}

my %files;
find sub {
...
        }
    }, $directory;