my $assign;
$assign="(".join(",",@HeaderRecordNames).")=";
$assign.="unpack(\".join("",@RecordLengths[$RecordType])."\");";
print "Evaluating $assign\n"; # this is for debugging
eval $assign;