sub makeop {
  my $op = shift;
  return eval 'sub {$_[0] '.$op.' $_[1]}';
}

my $x = 42;
my $y = 50;
my $op = makeop(">=");
if ($op->($x, $y)) {
  ...
}