$VAR1 = {
  'eggputing-sk.gif' => {
    '/home/eggie/pics/temp/foo/eggputing-sk.gif' => {
      'relname' => './foo/eggputing-sk.gif',
      'isize' => '527 x 369',
      'inode' => 35022,
      'fsize' => 24174
    },
    '/home/eggie/pics/temp/eggputing-sk.gif' => {
      'relname' => './eggputing-sk.gif',
      'isize' => '527 x 369',
      'inode' => 35022,
      'fsize' => 24174
    }
  }
};

##</code><code>##

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>;
}