Perl6 and Duff's Device

It looks like Duff's Device <http://www.lysator.liu.se/c/duffs-device.html>
won't be possible in Perl6. This is a shame.

     sub duff ($from) {
         # real life would use reference here, this is a demo
         # dummy: simulate write to serial i/o port
         my $to;
         my $i = 0;
     
         my ($n, $count);
         $count = $from.chars;
     
         $n = ($count + 7) / 8; # use integer in effect
     
         %MY::«{"l" ~ $count % 8}».goto();
         l0: do {    $to ~= (substr $from, $i++, 1);
         l7:         $to ~= (substr $from, $i++, 1);
         l6:         $to ~= (substr $from, $i++, 1);
         l5:         $to ~= (substr $from, $i++, 1);
         l4:         $to ~= (substr $from, $i++, 1);
         l3:         $to ~= (substr $from, $i++, 1);
         l2:         $to ~= (substr $from, $i++, 1);
         l1:         $to ~= (substr $from, $i++, 1);
             } while (--$n>0);
     
         return $to;
     }

In Pugs at least, labels may only only be assigned to blocks. Any chance
the language gets to have them in more arbitrary places? Would this in
fact be enough to make this work?

-- 
Gaal Yahas <gaal@forum2.org>
http://gaal.livejournal.com/

• Perl6 and Duff's Device by Gaal Yahas
• Re: Perl6 and Duff's Device by TOGoS
• Re: Perl6 and Duff's Device by Luke Palmer
• Re: Perl6 and Duff's Device by Larry Wall