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.