use strict;
use warnings;
use Devel::Peek;

my @array = split (" ", $_) while (<DATA>);

print Dump(\@array);

__DATA__
ksg gae agdg ekau eg
Gke geo g ep ge