y @array  = ( 9, 2, 23, 24, 5, 6 );
my $scalar = 5;

print "Got it\n" if grep /^$scalar$/, @array;