Select Code to Download

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

  my  @field_names = qw( id username domain .... prime_phones );
  my  @field_values = split /\t/;
  for( my $i=0; $i<@field_values; ++$i ) {
    $input_data{$field_names[$i]} = $field_values[$i];
  }