my(@array1, @array2) = @_;

##</code><code>##

    foreach my $element (@array2){
        @array1 = (@array1, $element);
    }#foreach

##</code><code>##

sub array_merge{ @_ };