# New Ticket Created by shreya...@yahoo.com # Please include the string: [perl #131245] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=131245 >
# create an array of 5 elements, remove 2, add a fifth one leaving 4th empty $ perl -e 'my @a=(1,2,3,4,5); pop(@a); pop(@a); $a[4]="hi"; print join(",", @a)."\n";' 1,2,3,,hi $ perl6 -e 'my @a=(1,2,3,4,5); @a.pop; @a.pop, @a[4]="hi"; say @a.join(",");' 1,2,3,4,hi Ouch! $ perl6 -v This is Rakudo version 2017.04.3-160-g08a8075 built on MoarVM version 2017.04-44-gf0db882 implementing Perl 6.c. Sent from Yahoo Mail on Android