$ perl -Mstrict -Mwarnings -E '
    my %op_hash = (
        q{+}    => sub { $_[0] + $_[1] },
        q{-}    => sub { $_[0] - $_[1] },
        q{*}    => sub { $_[0] * $_[1] },
        q{/}    => sub { $_[0] / $_[1] },
        q{%}    => sub { $_[0] % $_[1] },
        q{**}   => sub { $_[0] ** $_[1] },
    );
    say for map { $op_hash{$_}->(12, 3) } qw{+ - * / % **};
'
15
9
36
4
0
1728