gistfile1.txt

$ cat x

END { say 'end 1'; }
INIT { say 'init 1'; }
CHECK { say 'check 1'; }

CHECK { say 'check 2'; }
INIT { say 'init 2'; }
END { say 'end 2'; }

INIT { say 'init 3'; }
END { say 'end 3'; }
CHECK { say 'check 3'; }


$ ./perl6 x
check 3
check 2
check 1
init 1
init 2
init 3
end 3
end 2
end 1
$