[
   "anna",
   "beth",
   "christie",
   "denise",
]

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