my %dispatch = map {
    $_ => eval sprintf 'sub { $_[0] %s $_[1] }', $_
} qw/
    <
    <=
    ==
    >=
    >
/;