foreach $file (@filelist) {
  ($dir, $name) = split '/', $file;
  $dir =~ s/$currentdir//;
  printf("%s  %s\n", $dir, $name);
  $currentdir !~ s/$dir/$dir/;
}