RosettaCodeData/Task/Josephus-problem/Perl-6/josephus-problem-2.pl6

my @dalton = <Joe Jack William Averell Rantanplan>;
Execute @dalton, 2;
say "{@dalton} survived.";