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