( $dir, $file ) = m/(.*)[\\\/](.+)/ ? ( $1, $2 ) : ( undef, $_ );
#  print "$file is in the directory $dir\n";
  $fileinfo[$i] = [$file, $dir];