my $printed_dir = '';
foreach $file (@filelist) {
  my ($dir, $name) = split '/', $file;
  printf("%s  %s\n", ($dir eq $printed_dir ? '' : $dir), $name);
  $printed_dir = $dir;
}