my @header_line = ('id', 'name', 'age');
@fields{@header_line} = (0 .. $#header_line);

# is exactly equivalent to 

($fields{id},$fields{name},$fields{age}) = (0,1,2);