#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %hash = ( foo => 42, bar => '0815', buz => 'Woodstock' ); 

sub foo {
    my %hash = %{shift @_}; # use warnings!
    warn Dumper \%hash;
}

foo(\%hash);