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