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

##</code><code>##

use strict;
use warnings;

my $var = 42;

print "before: $var\n";

for $var (1 .. 10) {
    print "$var ";
}

print "\nafter: $var\n";

##</code><code>##

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