for ( 0 .. $#array ) { 
    my $element = shift @array;   
    push @array, $elt eq 'condition' ? my_sub( $elt ) : $elt;
}