my $header_row= 'one two three four five';
...
my %name2Index;
...
my $col=0;   
foreach my $col_head (split ' ',$header_row)
{
   $name2Index{$col_head} = $col++;
}