my @array1 = ("A","A","A","B","C");
my @array2 =  ("a","b","c","d","e");
#nun soll verglichen werden, wenn Array 1 gleich ist also hier die #ganzen A's dann soll Array 2 an den stellen zusammengefasst #werden => array1 wird A,B,C und array2 wird 123,1,1 also beide #haben nur noch drei Einträge

#mein Versuch

my $y=0;
my @array2_new;
my @array1_new;
for my $i(0..scalar(@array1)-1){    
    
if ($array1[$i] eq $array1[$i+1]){
    $array1_new[$y] = $array1[$i];
    if ($array2_new[$y] ne ""){
    $array2_new[$y]= $array2_new[$y].$array2[$i].$array2[$i+1];
    }
    else{ $array2_new[$y]= $array2[$i].$array2[$i+1];}
}    
elsif ($array1[$i] ne $array1[$i+1]
    && $array1[$i-1] ne $array1[$i]){
    $y++;
    $array1_new[$y] = $array1[$i];
    $array2_new[$y] = $array2[$i];
        
    
    }


}