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