update array_test.pl file