[perl #80614] [Bug] chained array item assignment leaves one item undefined

[via RT]

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


12:05 < moritz_> rakudo: my @a = 1, 2, 3; my @b; my $c = @b[0] = @a[1];
say $c; say @b[0];
12:05 <+p6eval> rakudo : OUTPUT«2␤Any()␤»

both should be 2

12:04 < moritz_> rakudo: my @b; my $c = @b[0] = 1; say $c; say @b[0];
12:04 <+p6eval> rakudo : OUTPUT«1␤1␤»

... and it works fine if the right-most term is not an array item, but
rather a scalar.

Found while pursuing masak's coding contest, problem 5.

Cheers,
Moritz