if (exists $perlop{$op}) {
    my $r = eval "\$a $perlop{$op} \$b";
} else {
    die "OH NOEZ!";
}