sub routine
{
   my ($hashref1, $hashref2) = @_;

   # don't convert them back to hashes
   # work with the refs instead, so you won't have to 
   # set @_ at the end
}

my %first, %second;

routine(\%first, \%second);
[download]