Select Code to Download

my %columns;
@columns{@split_first_line} = 0 .. $#split_first_line;

if (defined (my $field_num = $columns{$field_name})) {
  # field exists
}