Select Code to Download

$VAR1 = {
          'fn' => 'test3.dat',
...
                    '8'
                  ]
        };

foreach (@files)
  {
    $_{fh}->close;
  }

Can't call method "close" on an undefined value at test.pl line 62.