foreach my $dfs (@defstream) {
    $d{$dfs} = 1;
}

##</code><code>##

if ($d{$stream}) {