C:\test>perl -wle"substr( $i, 0, 1 ),  ++$i for 1 .. 100"
Useless use of substr in void context at -e line 1.
Use of uninitialized value $i in substr at -e line 1.