楽

#!/usr/bin/perl foreach my $i (1..200) {…