foreach (@files)
{
  my $io = new IO::File "< $_" or die;
  # read from $io
}