[perl #68274] Script runs for ~18,000 iterations then seg faults

[via RT]

# New Ticket Created by  Solomon Foster 
# Please include the string:  [perl #68274]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=68274 >


use v6;

loop (my $n = 2; $n <= 354294; $n++)
{
    my @digits = $n.comb(/\d/);
    my $sum = [+] (@digits >>**>> 5);
    say "$n, $sum" if ($n % 1234 == 0);
    say "$n = sum of its digits to the 5th power!!!" if ($sum == $n);
}

This simple Project Euler script dies with "Segmentation fault" after
18,000 iterations or so.

Platform: Mac OS X 10.5.6.
"Chicago" release of Rakudo.

-- 
Solomon Foster: colo...@gmail.com
HarmonyWare, Inc: http://www.harmonyware.com