my %Field;
my @HeaderFields=qw(RequestYear RequestMonth RequestDay RequestSequence RecordType RecordSequence Record);
my %RecordMap =(Preface => A2A2A2A4A2A2A1486,
               94      => A8A40);
...
@Field{@HeaderFields}=unpack("$RecordMap{Preface}",$_);
...