use warnings;
use strict;

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

for my $value ( @{$array_organizer} ) {
    print map { $_ } @{$value}, $/;
}
__DATA__
     a   f
       b   g
       c   h
       d   i
       e   j