#!/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";