.perl loop on recursive data structure

gistfile1.txt

# vim:set ft=perl6:

my %foo;
%foo<a> = 'a' => [];
%foo<b> = 'b' => [];
push %foo<a>.value, %foo<b>;
# Rakudo and niecza will never return from .perl method
push %foo<b>.value, %foo<a>;

note "Before .perl";
my $txt = %foo<a>.perl;
note "I am alive: $txt";