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