my @ptests = (88,89,90,91,110,115);

if ( grep {$p == $_} @ptests  ) {
    return $p;
}