for my $elem (@array1) {
    my $elem2 = ist_element_in_array($elem, \@array2)
    if (defined $elem2) {
        if ($elem eq $elem2) {
            #Ja: Ok, wir brauchen es nicht in der Ausgabe
        }
        else {
            #Nein: Schreibe beide Elemente in das Array diff
            push @diff, ($elem, $elem2);
        }
    }
    else {
        # Nein: Nur in Array1, ok, schreibs ins Array diff
        push @diff, $elem;
    }
}

for my $elem2 (@array2) {
    if (ist_element_in_array($elem2, \@array1)) {
        # Ja: Ok nichts zu tun, das wurde in der ersten Schleife
        # schon mit erfasst
    }
    else {
        # Nein: Nur in Array2, ok, schreibs ins Array diff
        push @diff, $elem;
    }
}