sub parts {
  my ($start,$end,$count,$max) = @_;

  my $v = $start; 
  for my $i (1..$count) {
    my $r;
    do {
      $r = $v + rand($max);
    } until $r < $end;
    $v = $r;
    printf "%.2f, ",$v;
  }
  print "\n";
}

for (0..10) {
  parts(0,10,10,2.5);
}