use Data::Dumper;

print Dumper(\%regions);