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"; }