Select Code to Download

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

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

hash1:A
hash2:B