sub rechne_was {
    my $operand1 = shift;
    my $operand2 = shift;

    my  $ergebnis_add = $operand1 + $operand2;
    my  $ergebnis_sub = $operand1 + $operand2;

    return ($ergebnis_add, ergebnis_sub);
}

# Aufruf der Sub:
my ($add, $sub) = rechne_was(4,2);