#!/usr/bin/perl

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

sub foo (\%\%) {
    Dumper @_;
}

my %a=(foo => 1, bar =>2);
my %b=(%a, bax => 3);
print foo %a, %b;

__END__