如何删除二维数组的一行数据？

＠AOA=([A,A,A,B,B,B,C,C,C],
       [E,E,E,E,E,T,T,Y,T],
       [R,R,A,T,T,T,Y,Y,Y],
       [O,O,O,P,P,P,R,R,R],
       [Q,W,W,E,E,E,R,R,R],
       [A,E,E,A,A,E,R,R,R]);
想将不含A的所有的行都删除掉，最后＠AOA ：
＠AOA=([A,A,A,B,B,B,C,C,C],
       [R,R,A,T,T,T,Y,Y,Y],
       [AE,E,,A,A,E,R,R,R]);

谢谢！

perldoc -f grep