sub is_subpenny {
    my $number = abs ($_[0] * 100);

    return $number - int ($number) > 0;
}