Select Code to Download

my @words = map { split " ",$_ } <DATA>;

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

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

use strict;
use warnings;
...
__DATA__
ksg gae agdg ekau eg
Gke geo g ep ge

SV = RV(0x1a97584) at 0x1a7f0bc
  REFCNT = 1
...
    MAX = 4
    ARYLEN = 0x0
    FLAGS = (REAL)