#!/usr/bin/perl -w
use strict;
my %hash1=("A"=>1);
my %hash2=("B"=>2);
foreach my $hashref (\%hash1,\%hash2) {
  print "$hashref:",ref($hashref),":",(join ",",sort keys %{$hashref}),"\n";

##</code><code>##

HASH(0x2002a3d0):HASH:A
HASH(0x2002a418):HASH:B

##</code><code>##

hash1:A
hash2:B