Repair perl 5.8 reported "Not an ARRAY reference"