for my $record ( $hash{'Application'}) { print "Environment:".$record->{'Environment'}[0]->{'Name'} ."\n"; print "Region:".$record->{'Environment'}[0]->{'Region'}[0]->{'Name'}."\n"; print "Idrive:".$record->{'Environment'}[0]->{'Region'}[0]->{'Idrive'}."\n"; print "LPad:".$record->{'Environment'}[0]->{'Region'}[0]->{'Zdrive'}."\n"; }