You can use the following code for getting the values of hash.
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";
}
For your reference, I have used the index as 0.You can find the length of the array in the hash and you can loop through the array length.