Well, if you are doing an obfus then you may wanna blow off declaring hash arrays and use ones that are floating around and don't cause errors. See the three examples below...

perl -we 'use strict; %_ = %ENV; print $_{TERM},$/'
perl -we 'use strict; %@ = %ENV; print $@{USERNAME},$/'
perl -we 'use strict; %% = %ENV; print $%{HOME},$/'
[download]

Yes, I'm ashamed that I know about those. =) Also, just for fun, try this one on:

perl -we 'use strict; %$ = %ENV; print ${$}{SHELL},$/'
# note the extra {} on this one to keep the parser from
# making the normally correct left turn of ${${SHELL}} and
# crying that $SHELL isn't declared...
[download]

--
$you = new YOU;
honk() if $you->love(perl)