use Data::Dumper; print Dumper \%DB_data;