\@arr =
[
  1,
  2,
  3,
  [ anna, beth, christie, denise ],
]

foreach my girl (@$arr[3]) {
  print "$girl\n";
}

##</code><code>##

\@arr =
[
  1,
  2,
  3,
  \[ anna, beth, christie, denise ],
]