my $vowel_count = tr/AEIOUYaeiouy//;