my $file = "...";
unless( open( FILE, "<", $file ) ) {
  print STDERR "Error opening '$file': $!\n"
  print STDERR "Hit <ENTER> to exit\n";
  scalar <STDIN>;
  exit 1;
}
my @array = <FILE>;
close( FILE ) or die "close '$file': $!\n";