sub divide {
    my ($a, $b) = @_;
    return $a / $b;
}