foreach my $file (@thefiles) {
  # ...
} # foreach
my $file = "irgendwas";