#!/usr/bin/perl
use strict;
use warnings;

my %rechnung = (
    '+' => sub { $_[0] + $_[1] },
    '-' => sub { $_[0] - $_[1] },
);

my $zahl1 = 1234;
my $zahl2 = 4321;
my $rechenart1 = '+';
my $rechenart2 = '-';

print $rechnung{$rechenart1}->($zahl1, $zahl2), "\n";
print $rechnung{$rechenart2}->($zahl1, $zahl2), "\n";