use Data::Dumper;
use CGI qw(:standard);
my %unsubscribe;

foreach my $address (@dbs) {
   open (DAT,'<',"$memberinfo/$address") or die "can't open $address: $!\n";
   my @dbase_array = <DAT>;
   print pre("dbase_array = ", Dumper \@dbase_array);
   print "address = $address", br();
   close(DAT);
   $unsubscribe{$address} = [@dbase_array];
   print pre("hash = ", Dumper \%unsubscribe);
}