Select Code to Download

use strict;
use warnings;
...
} else {
    print "Found only $found vowels\n";
}

($word =~ m/([aeiou])/g)
   # returns a list of all vowels found in $word
...

$found = ( keys ... )
   # this assigns the number of unique vowels found into $found