foreach my $filename (keys %found) {
  foreach my $fullfile (sort keys %{ $found{$filename}}) {
    eval 'my ($pid) = fork; if ($pid == 0) { exec "display -title %d/%f $fullfile" }';
  print $@ if $@;
  }
  print "Press <enter> to continue";
  <STDIN>;
}