@HeaderRecordNames   = qw/$RequestYear $RequestMonth $RequestDay $RequestSequence $RecordType $RecordSequence $Record/;
@HeaderRecordLengths = qw/A2           A2            A2          A4               A2          A2              A1486/;

...

@RecordNames[94]       = qw/$Destination  $DestinationType/;
@RecordLengths[94]     = qw/$A8            A4/;

...

my (@HeaderRecordNames) = unpack(@HeaderRecordLengths, $_);

my (@RecordNames[$Recordtype])=unpack(@RecordLengths[$RecordType]);