my $zahl1 = 7;
my $zahl2 = 3;
my $operator = '*';
    my %switch = (
        '*' => sub{ return $zahl1 * $zahl2; },
        '/' => sub{ return $zahl1 / $zahl2; },
        '+' => sub{ return $zahl1 + $zahl2; },
        '-' => sub{ return $zahl1 - $zahl2; },
    );
    
    my $ergebnis = $switch{$operator}->();