my $maxEngine; my $props = $license->{'properties'}; for my $p (@$props) { if ($p->{name} eq "maxEngines") { $maxEngine = $p->{value}; last; } } #### my $maxEngine = $license->{properties}[0]{value};