Select Code to Download

my $header_row= 'one two three four five';
...
...
{
   $name2Index{$col_head} = $col++;
}

my @header_row = qw/ one two three four five /;
...
...
...
@name2Index{ @header_row } = 0 .. $#header_row;