#!/usr/bin/perl

use strict;
use warnings;
use Benchmark;

my $res = timethese (-10, {
	'code1' => sub {
		open my $f, '<', 'file.txt' or die $!;
		chomp (my @array = <$f>);
		close $f
		    },
	
	'code2' => sub {
		die $! unless open my $f, '<', 'file.txt';
		chomp (my @array = <$f>);
		close $f
	}
});

Benchmark: running code1, code2 for at least 10 CPU seconds...
     code1: 13 wallclock secs (10.69 usr +  0.55 sys = 11.24 CPU) @ 97.46/s (n=1095)
     code2: 11 wallclock secs ( 9.55 usr +  0.56 sys = 10.11 CPU) @ 100.21/s (n=1013)