sub is_odd {
  return ( $_[0] % 2 ) != 0 ;
}