my @file_list;
sub files_wanted {
  my $text = $File::Find::name;
  if ( -f ) {
    push @file_list, $text;
  }
}
find(\&files_wanted,$directory);

my %files;
for my $raw_file (@file_list) {
  my @file_parts = split(/\//,$raw_file);
  my $file = pop @file_parts;
  my $file_size = -s $raw_file;
  push @{$files{"$file ($file_size bytes)"}}, $raw_file;
}

##</code><code>##

my %files;
sub files_wanted {
  my $raw_file = $File::Find::name;
  if ( -f ) {
    my ($volume,$directories,$file) = File::Spec->splitpath($raw_file); #update from a prior suggestion.
    my $file_size = -s $raw_file;
    push @{$files{"$file ($file_size bytes)"}}, $raw_file;
  }
}
find(\&files_wanted,$directory);