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

##</code><code>##

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

##</code><code>##

my $fmt = "x[10]a5x[22]a10x[4]a3a2...";
my %hash;
while( <$fh> ) {
    my( $code, @fields ) = unpack $fmt, $line;
    $hash->{$code} = \@fields;
}
...
for my $code ( keys %hash ) {
    print $hash->{ $code }[ $_ ] for 0 .. 33;
}