#         'STOP'=>[
#                  'G234_STOP''
#                  '60'
#                 ]

##</code><code>##

tina@lux:~> perl -wle'
sub test {
  my %vars;
  $vars{DATE} = ["G234_DATE","ZERO"];
  $vars{STOP} = ["G234_STOP","60"];
  return \%vars;
}
my $vars = test();
foreach $key (keys(%$vars)){
    print $key;
}'
STOP
DATE
tina@lux:~>