P:\test>perl -wl my $a = 'a' x 10; my $b .= substr( $a, $_, 10-$_ ) . '-' x $_ for 0 .. 9; print $b; ^Z Use of uninitialized value in print at - line 3.