if ( grep { $_ eq $foobar} @array )
{
}

##</code><code>##

use List::Util qw(first);
if ( first { $_ eq $foobar } @array )
{
}