while (1) {                                                           
    last                                                              
       unless $sentence =~ s!###RAND\{([^{}]+)\}!get_rand_arr_el($1)!e;
       print $sentence."\n";                                          
}