use 5.20.0;

my $input = 3004953;

my @elves = 1..$input;

while( @elves > 1 ) {
    push @elves, shift @elves;
    shift @elves;
}

say @elves;