#!/usr/bin/perl
use strict;

my @array = qw(q e t u o);


while(<DATA>){
  chomp(my $r = $_);
  grep{print "$_\n" if ($r =~ /$_/g)}@array;
}


__DATA__
ff 
qksjnfji klksnsd
jkksdjen rjkaa