#make hash
my %junk = (
  one=>'123123',
  two=>'dsf4f3'
)

# send reference
&printvals(\%junk);

sub printvals {
  my $junk=$_[0];
  #dereference these guys
  print $$junk{one} . $$junk{two};
}