my @tests = qw/ p up hip hop hoop heap help hops /; 

for ( @tests ) {
  say if reverse =~ /^p([aeiou])(?!\1)/;
}