my $i;

for $i (1..8) {
    print "$i\n";
}