Maybe grep does what you want?

$wanted = qr(something);
if( grep { $_ =~ $wanted } @prims ) { print "hurray!\n" }
[download]

I'm pretty sure you want the Fletch or the mortiz solution though.