Select Code to Download

>perl -le"printf '%.17f', .2
0.20000000000000001

use List::MoreUtils qw(part);
my @array = (1..100);
my $i; my @parts = part { ($i++)/5 } @array;