Select Code to Download

use Data::Dumper;
sub two_hash(\%\%) {
...
my %bar=qw(A B);

print Dumper two_hash(%foo,%bar);