Subroutine [max]
=================
{
    my ($a, $b) = @_;
    return $a > $b ? $a : $b;
}

Subroutine [min]
=================
{
    my ($a, $b) = @_;
    return $a < $b ? $a : $b;
}