my @satz = qw(das array das durchsucht werden soll);

my (@gleich,@ungleich);

while( @satz ){
    my $quell = $satz[0];
    push @ungleich, $quell;
    for my $i( 0..$#satz ){
        if( $satz[$i] eq $quell ){
             push @gleich, $satz[$i];
             splice @satz, $i, 1;
    }
}