Select Code to Download

my @headings2 = map { { key => $_->[0], name => $_->[1], class => $_->
+[2] } }
  #--  KEY    NAME          CLASS   ----
...
  [ qw(co     Suggestion    skip-code) ],
  [ qw(disc   Discussion),  undef      ];