if( grep { $scalar == $_ } @array ) {
   print "$scalar is member of @array\n";
} else {
   print "$scalar is not member of @array\n";
}