perl -MData::Dump -e'@a=("aaa","bbb","ccc"); @b=(@a)x4; dd \@a,\@b'
(
  ["aaa", "bbb", "ccc"],
  [
    "aaa",
    "bbb",
    "ccc",
    "aaa",
    "bbb",
    "ccc",
    "aaa",
    "bbb",
    "ccc",
    "aaa",
    "bbb",
    "ccc",
  ],
)