foreach my $header (@headers) {

    push @{ $columns{$header} }, shift @row;
}