my @defstream = ("HF","HFB","MB","BF");
my %d;
@d{@defstream} = (1) x @defstream:

if ($d{$dfs}) {
   ...
} else {
   ...
}