use strict;

my @array1 = qw/eins zwei drei   vier/;
my @array2 = qw/null vier sieben eins/;

my @schnitt = array_schnitt(\@array1, \@array2);

print "@schnitt";


sub array_schnitt ($$) {
    my $ar1 = shift;
    my $ar2 = shift;

    my @result = ();

    for my $elem (@$ar1) {
        push @result, $elem if grep $elem eq $_, @$ar2;
    }

    return @result;
}