You have to figure out what the 39th call to eval is, and look at line 15 in it:

use warnings;
foreach my $i ( 1..5, undef, 7..9 ) {
        eval '$x = join("",$i,"");';
}
# Use of uninitialized value in join or string at (eval 6) line 1.
[download]