#!/usr/bin/perl -w
use strict;

my @array = qw( chatterbox teste abode fooooo foo);

my @vowelsGT2 = grep{ tr/aeiouAEIOU// >2}@array;
print "Words with >2 vowels: @vowelsGT2\n";

__END__
prints: Words with >2 vowels: chatterbox abode fooooo