sub isNegative 
 {
     my($checkValue) = @_;
     if(abs($checkValue) != $checkValue) 
     {
         # the value is negative
         return 1;
     } 
     else 
     {
         # number is positive
         return 0;
     }
 }