$_ = 'A Lighthouse';

if (5 == keys %{{map {lc $_ => undef} m/([aeiou])/ig}}) {
  print "Found at least one of each vowel.\n";
}
else {
  print "Not all vowels were found.\n";
}