use 5.20.0;
my $input = 3004953;
my @elves = 1..$input;
while( @elves > 1 ) {
push @elves, shift @elves;
shift @elves;
}
say @elves;