Silly me, it's obvious how to do that, I'v just changed it too:

sub isListMember {

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

Is that the right way, or there's a better or correct one?

Thanks.

Hotshot