# zaehlen, wie oft jedes Element vorkommt
my %cache;
$cache{ $_ } ++ foreach @satz; 

my( @gleich, @ungleich );

foreach ( keys %cache ) {
    $cache{$_} > 1
        ? push( @gleich, $_ )
        : push( @ungleich, $_ );
} # foreach