#!/usr/bin/perl -l

my (@a1, @a2);
while (<>) {
    my ($a1, $a2) = split or next;
    next unless $a1 and $a2;
    push @a1, $a1;
    push @a2, $a2;
}
print for "@a1", "@a2";

__END__