print "$p has $s\n" if 0 == index $s, $p;