some more array perl