$hashref = {'Anonymous' => 'Hash'}; #hash has no varable
                                    #name - just reference

##</code><code>##

#usr/bin/perl  -w
use strict;
my %hash1 = ('A' => 1);
my $hashname1 = 'hash1';

my %hash2 = ('B' => 2);
my $hashname2 = 'hash2';

eval qq (print qq(Hashname: $$hashname1 Values:); print join ",",sort keys %{$hasname1})" );
eval qq (print qq(Hashname: $$hashname1 Values:); print join ",",sort keys %{$hasname1}) );