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