map {
    my $x=0;
    map {
        push @{$foo[$x]}, $_;
        $x++;
    } @$_;

} @lines;