http://www.perlmonks.org?node_id=90354


in reply to using 'my'

You should probably check out a little article written here, Coping with Scoping.

In the meantime, you should read about strict.pm, and my.

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H; print chr($_-39); # Easy but its ok.