for my $column (0 .. 4) {
    my @byColumn = map {$_->[$column]} @lines;
    print "@byColumn\n";
}