my %hash_outside;
$hash_outside{'first'} = 'first value';
$hash_outside{'second'} = 'second value';

sub blah {
  my %hash = %{ +shift; };
  foreach my $k (keys %hash) {
    print "$k -> " . $hash{$k} . "\n";
  }
}

&blah(\%hash_outside);