Re^3: need help to print some lines

Instead of repeating push function, why not:

...
while (<DATA>) {
    for my $index ( 0 .. 1 ) {
        push @{ $array_organizer->[$index] }, [split]->[$index];
    }
}
...
[download]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me