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