@a = ( 'a', 'x', 'z' ); # simplified array
while(<>)
{
   local $" = "";
   print if(/^[@a]{3}$/);
}