sub routine {
my ($hash_ref1,$hash_ref2)=@_;
my %hash1=%{$hash_ref1};       #umkopieren
$hash1{key}="wert";                    #wirkt sich nicht auf ursprüngliches Hash aus
}  

my %hash1=%{$_[0]};
# oder
my %hash1=%{scalar shift};

(*hash1,*hash2)=@_;

sub foo {
  my %hash = %{ shift @_ };
}

sub foo {
  my %hash = %{ shift };
}

sub foo {
  my %hash = %{ shift() };
}

sub routine {
my ($hash_ref1, $hash_ref2) = @_;
my %hash1 = %$hash_ref1;       #umkopieren

sub foobar(\%) {
  local *local_hash = shift;
  # do what you want
}

my %my_hash;
foobar %my_hash;

#!/usr/bin/perl
use warnings;
use strict;

foo({ hallo => 'welt' });

sub foo {
    my %bar = %{+ shift };

    print $bar{hallo}, "\n";

    return;
}