This is a cheat:

my(@input_array) = qw(ai tyueioa ew ww ty tu aoieuyt);

foreach my $one_line(@input_array)
{
  /a/i && /e/i && /i/i && /o/i && /u/i &&
  ( print $one_line, "\n" )
  for( $one_line );
}
[download]