if ($name =~ m/1234|ABCD|HIGL|TOOA|COOLIE/) {
      do_stuff
  }