ภาษาเพิร์ล language ค่อยจัดการเรื่องพิมพ์

ภาษาเพิร์ล language ค่อยจัดการเรื่องพิมพ์

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