foreach my $key (sort keys %{ $array[1] }) {
  print "$key => $array[1]->{$key}\n";
}