Select Code to Download

my %perlop = (
   lte => sub { $_[0] <= $_[1] },
...
);

my $r = $perlop{$op}->($a, $b);