Thank you Bill for answer. It works, but was not able to remove the empty comments along with that.

 #######Remove power using remove_power_list ###########
my $outfile;
my $arr_content;

my $rprow = join '|', @remove_power_list;
$rprow = qr/(?:$rprow)/;

if (@remove_power_list != 0) {
        my $bf_content;
        open $bf_content, '<', $bf_bind; ###bf_bind is file in bigger 
+for loop
        my @bf_array = <$bf_content>;
        close $bf_content;
        open $outfile, '>', $bf_bind;
        for $arr_content (@bf_array){
                next if (@arr_content=~/$rprow/);    
                print $outfile $arr_content;
        }           
        close $outfile;
}
[download]

I think if there is any other string (not in my intended lines) matching with the element (for example "vcchg") from @remove_power_list array, should it remove those lines too. I tested some cases by putting string like: "set intfcInstName vcchg", outside or inside my unintended block and it doesn't delete, which is good. But, I don't know why.