Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...

push @{$byGroup{$_->[1]}}, $_->[0] for map {[/(([A-Z]+).*)/]} @aircraf
+t;
printf "Group %5s: %s\n", $_, "@{$byGroup{$_}}" for sort keys %byGroup
+;

Select or download this

Group    AD: AD3
Group   DAL: DAL13 DAL14
Group   DBR: DBR2 DBR4 DBR3
Group  DEHA: DEHA2
Group    FG: FG3 FG6