Without using a bigint module, you can't generate much of the series. I suspect correct Perl 6 solutions would be really easy.

use bigint; my $f=3; for (1..12) { $f = ($f-1)**2 if $_>1; say $f }
# Faster: replace bigint with Math::GMP qw/:constant/;
[download]

I admit I find code golf to be tiresome, and prefer readable and efficient solutions.