@numbers = ('1','1','1','2','2','3','3','4','4','5','6'); @strings = ('hello','you','tree','people','fun','sun','grass','love','food','car','rabbit'); #### helloyoutree peoplefun sungrass lovefood car rabbit #### for (my $i=0; $i< @numbers; $i++) { if (($numbers[$i] == $numbers[$i+1]) || ($numbers[$i] == $numbers[$i-1])) { push @new_array, "$strings[$i]"; } else { push @new_array, ">"; push @new_array, $strings[$i]; push @new_array, ">"; } } my $j = join ('', @new_array); $j =~ s/\s+//; @new_array = split (/>+/, $j);