$DB_name =~ /[ISWLIVE ISWTEST ISWTEACH]/

##</code><code>##

$DB_name =~ /(ISWLIVE|ISWTEST|ISWTEACH)/

##</code><code>##

each %$DB_name

##</code><code>##

$HREF = eval "\\\%$DB_name";
...
if ($HREF->{key} ...)