in reply to Passing hashes by reference

Simply because I enjoy producing scripts with arcane/obscure syntax that make other people cringe, I shall offer up the following: 
sub loader{
 # loads values into hash..
 my $tail = shift;
 local *h_ref = shift; # there's nothing quite like hacking the symbol
+ table :)
 
 print 'In sub:'.Dumper(\%h_ref);

 $h_ref{'one'}='thing_'.$tail;
 $h_ref{'two'}='thong_'.$tail;
 print 'After add:'.Dumper(\%h_ref);
}

[download]
I would like to remind you that noone sane would use this technique.
--Stevie-O 
$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc

[download]

In Section Seekers of Perl Wisdom