[0] Perl> @data = ("AAA BBB CCC DDD EEE FFF GGG") x 10;;
[0] Perl> pp \@data;;
[
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
  "AAA BBB CCC DDD EEE FFF GGG",
]

[0] Perl> @data = map[ split ], @data;;
[0] Perl> pp \@data;;
[
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
  ["AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG"],
]