$macro{$type} = { $var => $rval } 
                      if ( $class eq "macro" );

##</code><code>##

                  $macro{$type}{$var} = $rval 
                      if ( $class eq "macro" );

##</code><code>##

         my $rval = [ split(/,/,$rval) ];