Select Code to Download

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

#usr/bin/perl  -w
use strict;
...

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