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

my $deleteme = 1;
if (grep {$text =~ /_9$_/} @$sites) { $deleteme = 0 }
if ($deleteme) { print "To be removed..\n" }