How about

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

?
Update: I know, the Order is not preserved, but I hope you get the Idea.