Select Code to Download

$unsubscribe{$address} = [@dbase_array];

use Data::Dumper;
use CGI qw(:standard);
...
   $unsubscribe{$address} = [@dbase_array];
   print pre("hash = ", Dumper \%unsubscribe);
}