use List::MoreUtils qw(part);
@array = (1..100);
$i = -0.1;
@parts = part { $i += 0.2   }  @array;