use List::MoreUtils qw( pairwise );

my @combined = pairwise { $a .':'. $b } @array1, @array2;