Select Code to Download

foreach $file (@files) {
    print Dumper $file;
...
        print "\nt= $t v=" . $file->{$t};
    }
    ..

$VAR1 = [
          {
...
          }
        ];