my @first = qw/one two three/;
my @second = qw/four five six/;

for $value(@first){
	$second[++$#second] = $value;
}