my @array1 = ('one','two','three') ;
my @array2 = (1,2,3) ;

&combinearray(\@array1,\@array2);

sub combinearray{

 my @arr1=@{$_[0]};
 my @arr2=@{$_[1]};

 my @combinarr;
foreach my $var(@arr1){
        my $tem=$var.':'.shift @arr2;
        push(@combinarr,$tem);
    }
print "@combinarr";
}