our %hash1 = ("A"=>1);
our %hash2 = ("B"=>2);

foreach my $hashref ('hash1', 'hash2') {
    no strict 'refs';
    print "$hashref:",(join ",",sort keys %{$hashref}),"\n";
}