Unit test for array merge Perl