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