Operator in a variable

my $result = eval "\$x $op \$y";

However, that leads to security issues, and hard to find bugs.

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

my $result = $ops{$op}->($x, $y);