Select Code to Download

my $fmt = join '', qw[
    x[10] a5
...
    x[4]  a3 a2
    ...
];

my $fmt = join '', grep !m[^#], qw[
    x[10] a5     #code
...
    x[4]  a3 a2  #doodah&whatsit
    ...
];

my $fmt = "x[10]a5x[22]a10x[4]a3a2...";
my %hash;
...
    print $hash->{ $code }[ $_ ] for 0 .. 33;
}