Look for line 7974 of string eval (eval "").

$ 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.

$
[download]

Consider using Carp