array_merge Perl WIP