Select Code to Download

my $hash;

...
   $hash->{$code}->{'FIELD170'}) = unpack(
   "A14A1A1A1A5A5A30A50A20A1A5A5A5A5....");
}

  ($hash->{$code}->{$name[0]},
   $hash->{$code}->{$name[1]},
   $hash->{$code}->{$name[169]}) = unpack($fmt);