my @a = ('a','r','z','x');
my $mystring = 'areqrtyzx';
for( my $i=0; $i<$#a+1; $i++ ) {
   if($mystring !~ /$a[$i]/)
   {print "no match";last;}

}