>396
ハッシュをそのまま返すことはできませんので、リファレンスで返します。

sub function {
my %a = (a => 1);
my %b = (b => 1);
return(\%a, \%b);
}

my ($ref_a, $ref_b) = func();