my $c = 0;
our @Columns = qw(field1 field2 ...);
our %Column_numbers = map { $_ => $c++ } @Columns;