Please don't laugh at my original test program, tsanta.pl, written
over three years ago. I decided to leave it alone in Perl 5 for now,
just making the minor adjustment of running each golf hole with
pugs rather than perl and changing the
names of the programs from head.pl to
head.p6 and so on. Maybe I'll try rewriting
this test program in Perl 6 later.
Update: The p6 rewrite, tsanta.p6,
was done in Pugs Baby Steps; for latest versions
of tsanta.p6 and rg0now's excellent solutions below
see examples/golf in the Pugs distribution.
Here is the updated tsanta.pl:

Now this is where I hit a bit of trouble as it dawned on me I had
no idea how to write Perl 6 code. I further had no clue what parts
of Perl 6 the scintillating autrijus had got around to implementing yet.
Never fear, browse around the Pugs test suite a bit
(while singing a song in praise of test-driven development)
and grep for favourite functions, such as
substr (nuts, not there), join (yep),
elems (nuts again), reverse (oh dear), ...

Anyway, after a few hours of random hackery, I am the proud owner
of five Pugs Perl 6 programs that pass the tsanta.pl
test program. Here they are:

Please note that these are not examples of
good Perl 6 style -- quite the reverse actually,
since I have no clue what I'm doing. Perl 6 experts,
therefore, are invited to write much improved versions.
In writing mid.p6, I noticed that int
truncates in Perl 5 yet rounds in Pugs. Bug or feature?
Update: It's a fixed bug (see
autrijus journal) -- I was using Pugs 6.0.10 and version
6.0.11, due out in a couple of days, will include this
truncate fix, which in turn will require a minor adjustment to
mid.p6 (remove the silly -0.1 I think).
Oh, and the lack of printf made wc.p6 a real pest to write.

Of course, everyone is invited to beat my pathetic score of 398
strokes and there are two ways to do this: download Pugs and write
versions that pass the probing tsanta.pl test program; and
(for Perl 6 gurus only) devise theoretically correct Perl 6
solutions that are not yet implemented in Pugs. Enjoy!