#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

sub test(\%$) {
    my ($param,$hashref) = @_;

    warn Dumper $param;
}

my %hash = (eins => 1, zwei => 2);
test( %hash, { hallo => 1 } );