Select Code to Download

use List::MoreUtils qw(natatime);

...
  print "@smallArray\n";
}

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