foreach my $license (@licenseInfos) { my $licenseProperties = {map {$_->{name} => $_->{value}} @{$license->{properties}}}; print $license->{customerName}, "\n"; print $licenseProperties->{maxEngines}, "\n"; }