my %perlop = (
   le => '<=',
   ge => '>=',
   #...
);

my $r = eval "$a $perlop{$op} $b";