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}->();