Simple dispatch table example

dispatch.pl

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

# Define allowed operations
my %operation = (
  '>' => sub { $_[0] > $_[1] },
  '<' => sub { $_[0] < $_[1] },
);

sub operate {
  my ($x, $op, $y) = @_;

  if ($operation{$op}) {
    return $operation{$op}->($x, $y);
  } else {
    die "$op is an unknown operation";
  }
}

if (operate(1, '<', 2)) {
  say "1 < 2";
}