for my $file (@files) {
    open my $fh, '<', $file or
      die "Error opening `$file': $!\n";
    # do something with $fh
    # ...
    # no need for an explit close() 
}