my @field_names = qw( id username domain .... prime_phones ); my @field_values = split /\t/; @input_data{@field_names} = @field_values;