push push push!

#! /usr/bin/perl                                                                                                                                                                    
use strict;                                                                                                                                                                         
use warnings;                                                                                                                                                                       
use Benchmark qw/cmpthese/;                                                                                                                                                         
                                                                                                                                                                                    
cmpthese(500000, {                                                                                                                                                                  
    'push' => sub {                                                                                                                                                                 
        my @array = (1 .. 10);                                                                                                                                                      
        my @array2 = (1 .. 10);                                                                                                                                                     
        push(@array, @array2);                                                                                                                                                      
    },                                                                                                                                                                              
    'join' => sub {                                                                                                                                                                 
        my @array = (1 .. 10);                                                                                                                                                      
        my @array2 = (1 .. 10);                                                                                                                                                     
        @array = (@array, @array2);                                                                                                                                                 
    }                                                                                                                                                                               
});                                                                                                                                                                                 

__END__
$ perl ./array.pl
         Rate join push
         join 132275/s   -- -35%
         push 204082/s  54%   --