my @format = ( #qw deleted
field1=>10,    #other delimiter
field2=>20,
field3=>8
);
#and use as
@fields{keys %format}=unpack"A".join("A",values %format),$_