{
   use IO::File;
   my $f = IO::File->new($file);
   # no need to close
}

##</code><code>##

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