perl 数组查找字符串:求助一些关于移动机房的知识???