for my $word (@words) {
	say $word if (scalar(grep { my $count = () = $word =~ /$_/; $count == 1 } qw(a e i o u)) == 5);
}