my  %vowel = qw(a 1 e 1 i 1 o 1 u 1 A 1 E 1 I 1 O 1 U 1);
foreach $word (@ARGV) {





  
}
print "\n"