foreach(@{$data->{$region}}) { print CSV "a\n"; }