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


in reply to a question on style

Of course thats not bad, and if your really going for the non-cluttered, more style code
if ($x = $y) { print "$y = $x\n"; }
might look better as
print "$y = $x\n" if ($x = $y);
which is basically the same thing, but easyier to type and read.

but I always look at if/ifels/else statements as a good chance to put in some nifty debugging options, IE
if ($y eq $x) { print "$y = $x\n"; } elsif ($debug eq 1) { print "$y != $x\n"; }
but thats just my two cents.