use 5.20.0;

my $i = 380;

my @v = (0);
my $p = 0;

use DDP;
for(1..2017) {
    $p = ( 1 + $p + $i ) % @v;
    splice @v, $p, 0, $_;
}

p @v;