http://qs321.pair.com?node_id=442665


in reply to Stupid mistakes I repeatedly make

my( $n, $m, $o ) = shift;

I used to do this one all the time also. I just got in the habit of not using shift. Instead I'd do:

my ( $n ) = @_;

Works just as well and is nearly impossible to screw up if you need more variables.