use 5.20.0;
my $input = 3004953;
my @elves = 1..$input;
my $j;
while( @elves > 1 ) {
say $elves[0] unless $j++ % 1000;
splice @elves, @elves/2, 1;
push @elves, shift @elves;
}
say @elves;