@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);