Select Code to Download

foreach (@files)
{
  $files = $_;
  #etc...

use strict;
use warnings;
...
}

print "\nafter: $var\n";

before: 42
1 2 3 4 5 6 7 8 9 10 
after: 42