if (defined $ref)  {
  print "REF: $ref <br> \n";
             $HASH = eval ($ref);
             %data = %$HASH;
          }
          else  {
              %data = {};
         }

          print "MYHASH: $_ $data{$_} <br> \n" for (sort keys %data); exit;