sub isListMember {

  my ($array, $item) = @_;   # array ref, item
  for (@{$array}) {
    if (/^\d+$/) {
      return $TRUE if ($_ == $item);
    } else {
      return $TRUE if ($_ eq $item);
    }
  }
  $return $FALSE;
}