...
use Data::Dumper qw( Dumper );
print Dumper( \%data );