my @pi = map {$_ / 100} (1 .. 8);
print "$_, " for (@pi);