Exactly the same (note that with perl6, you can omit the parens):

#!/usr/bin/perl6

for (1..3){
    print "$_\n";
}
[download]

...or, you can use say. (You can in perl5 as well, if you use feature 'say';):

for (1..3){
    say $_;
}
[download]

or a shortcut if you're only doing a small task (same as perl5):

print "$_\n" for 1..3;

say $_ for 1..3;
[download]