Sure, that's what curly braces are for. (Well, one of the many things.)

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