perl 怎麼 return 多個 hash

sub func {
   
   return (\%hash1,\%hash2,\%hash3);
}
my ($ref1,$ref2,$ref3) = func();
print Dumper($ref1);