use strict;
use warnings;

my $word = "alighthousa";
my $found;

if (($found = ( keys %{{map { $_ => 1 } ($word =~ m/([aeiou])/g) }} )) == 5) {
    print "Found all 5 vowels\n";
} else {
    print "Found only $found vowels\n";
}