use Data::Dumper;

while (<DATA>) {
    my @foo = split;
    my @bar = split / /, $_;
    print Dumper \@foo, \@bar;
}

__DATA__
hello world
foo bar baz