foreach my $n (@{$data->{instance}}) {
  foreach my $m (@{$n->{contact}}) {
    foreach my $key (keys %{$m}) {
      print "key: $key -> $m->{$key}\n";
    }
  }
}