if (grep({ $_ eq $foobar } @array) == @array) { ... }
[download]

"If the number of elements equal to $foobar is the same as the number of elements in the array..." or

unless (grep { $_ ne $foobar} @array) { ... }
[download]

"Unless you find an element that is not equal to foobar..."

Of course, these are both loops of a kind.