http://www.perlmonks.org?node_id=400537


in reply to Compare all array values without a loop

if (grep({ $_ eq $foobar } @array) == @array) { ... }
"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) { ... }
"Unless you find an element that is not equal to foobar..."

Of course, these are both loops of a kind.
rjbs