Select Code to Download

for my $k (@sorted_keys) {
    $hash{$type}{$k}{data} = shift @mydata;
}

my @subfields = qw( REQ POS LENGTH data FILTER );
my @sorted_keys = sort qw( field1 field2 );
...
for my $k (@sorted_keys) {
  @{ $hash{$type}{$k} }{ @subfields } = @{ shift @mydata };
}

use strict;
my @subfields = qw( REQ POS LENGTH data FILTER );
...
         'POS' => 34
         'REQ' => 'N'
         'data' => '          '

$hash{ that_type }[ 1 ]{ LENGTH }

\&default_filter()

\&default_filter