gistfile1.txt

my $file = open "test.txt", :w;

for 1..1000 {
    $file.say: sprintf("This is a test                                    %7d", $_);
}


# end of text.txt after executing this:

This is a test                                        980
This is a test                                        981
This is a test                                        982
This is a test                                        983
This is a test                                        984
This is a test                                        985
This is a test                                        986
This is a test                                        987
This is a test                                        988
This is a test