for my $key ( keys %$data ) {
  print "key = $key\n";  #debug

  my $zip = $data->{'zip'};
  my $descri = $data->{'happen'}[0]->{'descri'};
  my $extra_name = $data->{'notas'}[0]->{'ExtraName'};
  print "\n $zip - $descri - $extra_name\n";

}