Grep comes to mind...

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

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

also perlfaq4 should have this

--
Casey