in reply to Re^2: need help to print some lines
in thread 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

In Section Seekers of Perl Wisdom