use Data::Dumper;
print STDERR Dumper(\%data);