foreach $file (@file_list) {  

  (my $volume,my $directories, my $filename) = File::Spec->splitpath( $file );
  print "$filename\n";