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

##</code><code>##

$scalar = 3;
@array  = ([1, 2], [3, 4, 5], [6, 7, 8 ,9]);

if( grep { $scalar == $_ } map { @$_ } @array ) {
   print "Yes\n"
} else {
   print "No\n"
}