my %hash = ( # value type string 'MyVehicle' => 'Car', # value type integer 'Model' => 1234, # value type float 'Speed' => 60.7, # value type hash 'Traffic' => {'Red' => 'Stop', 'Yellow' => 'Look and move', 'Green' => 'Go'}, # value type array 'AllVehicles' => ['Car', 'Cycle', 'Bus', 'Auto']); # printing values stored # at key 'Traffic' and 'AllVehicles' print "Traffic : $hash{'Traffic'}->{'Red'}\n"; print "AllVehicles : $hash{'AllVehicles'}[3]\n";my %weekly_temperature = ( monday => 65, tuesday => 68, wednesday => 71, thursday => 53, friday => 60, ); print "\nACCESSING KEYS:\n"; foreach my $key (keys %weekly_temperature){ print "key: " . $key . "\n"; } print "\nACCESSING VALUES:\n"; foreach my $value (values %weekly_temperature){ print "value: " . $value . "\n"; } print "\nACCESSING VALUES USING KEYS:\n"; foreach my $key (keys %weekly_temperature){ print "[$key: " . $weekly_temperature{$key} . "]\n"; }