for my $i ( reverse 0 .. $#{ $ar } ) {
        splice @{ $ar }, 0, $i;
    }