@array = reverse @array;
for ( reverse 0.. $#array ) {
    splice @array, $_, 1, func( $array[$_] );
}
@array = reverse @array;