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

##</code><code>##

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