Array merge Perl finished.