sub is_subpenny
{
         my $number = $_[0];

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