my $zahl1 = 7;
my $zahl2 = 3;
my $operator = '*';
...    my $ergebnis = $switch{$operator}->();