What about this way (i'm sure it's slowly):

foreach my $header (@headers) {

    push @{ $columns{$header} }, shift @row;
}
[download]