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

    return $number - int ($number) > 0;
}
[download]

is faster by avoiding an extra multiply and also works for negative numbers although the abs may slow it down again.