Aren't the math operators something like:

sub do_<op> {
    my ($self, $other, $switch) = @_;

    @$self = map {
        $switch
            ? ($other <op> $_)
            : ($_ <op> $other)
    } @$self;

    return $self;
}
[download]