for (@array) {
  if ($_ =~ /CONTENT/) {
    my @list = &getlist($type, $index)
    #... gotta find out what to do from here.
  }
}