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);
}