for $i (0 .. $#@AoA) {
  if (grep(/$variable/, @{$AoA[$i]})) {
    print "List " . $i+1 . "contains $variable.\n";
  }
}