foreach my $filename ( @files ) {
  unless( open( FILE, $filename ) ) {
    warn "Couldn't open $filename: $!\n";
    next;
  }  

  ...

  close( FILE );
}