Select Code to Download

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

$scalar = 3;
@array  = ([1, 2], [3, 4, 5], [6, 7, 8 ,9]);
...
} else {
   print "No\n"
}