my $text = 'f000124_90181234_dp';
my $sites = [ '018', '324' ];

print "$text To be removed"
        unless $text=~/_9(...)/,{map{$_,1}@$sites}->{$1};