Select Code to Download

use constant GROUPS => {
                          A => 1,
...
                          2 => y,
                          3 => z
                       };

while ( my ($k,$val) = each %{ +GROUPS } ) {

  while ( my ($k,$val) = each ($k)) {
     
     print $k{val} ;
  } 
}