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;

##</code><code>##

REF: $VAR1 = { 'KeyWordMapper:Modify' => 'notify', 'DispatchHistory:Restore' => 'notify', 'BuildReport:CSETicketSummary' => 'notify', 'Agenda:StatusRestore' => 'notify', 'BuildReport:SQATestDetails' => 'notify', 'Agenda:Create' => 'notify' };