$ cat eval.line.pl
#!/usr/bin/perl 

use strict;
use warnings;


for( 1 .. 2){
    eval q{
my $foo = (undef)->[1];
die "Oh noes!!";

};
    warn $@;
    warn "EEEK";
}
warn "Arggg!!!";

$ perl eval.line.pl
Can't use an undefined value as an ARRAY reference at (eval 1) line 2.
EEEK at eval.line.pl line 14.
Can't use an undefined value as an ARRAY reference at (eval 2) line 2.
EEEK at eval.line.pl line 14.
Arggg!!! at eval.line.pl line 16.

$