while (<>) {
    /(\S*)\s+(\S*)/;

    push @a, $1 if length $1;
    push @b, $2 if length $2;
}