my @intersection = intersection(\@schraubenzieher, \@zange);
sub intersection {
    my ($x, $y) = @_;
    my %seen;
    @seen{ @$x } = (1) x @$x;
    # schaue, was von $y schon in %seen existiert und gib nur diese
    # elemente zurück
    return grep { $seen{ $_} } @$y;
}

# @elements_found_in_every_given_array = abgleichen( \@array1, \@array2, ... )
sub abgleichen {

  my %seen;
  for my $aRef ( @_ ) {
     
      $seen{$_}++  for @$aRef;
  }

  return grep { $seen{$_} == @_ } keys %seen;
}