পার্ল each

my %user = (
    "নাম" => "মোঃ আরিফ",
    "দেশ" => "বাংলাদেশ"
);

while (my ($key, $value) = each %user) {
    print "$key: $value\n";
}