foreach $address (@dbs) {
open (DAT,"< $memberinfo/$address");
@dbase_array = <DAT>;
print "dbase_array = @dbase_array<br>";
print "address=$address<br>";
close(DAT);
%unsubscribe = ($address => @dbase_array,);
print "hash = %unsubscribe<br>";
}
}