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