my %files;
for my $raw_file (@file_list) {
  my ($volume,$directories,$file) = File::Spec->splitpath($raw_file);
  my $file_size = -s $raw_file;
  push @{$files{"$file ($file_size bytes)"}}, $raw_file;
}