sub mult2 {
        my($a, $b)  = @_;
        my $product = 0;

        $product += $a while ($b--);

        return $product;
}