my  $range = sprintf("%f","$day->[1]") - (sprintf("%
  f","$day->[1]") % 5);