sub is_subpenny {
    ($_[0]+0) =~ /\..../;
}