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