সম্পাদনা
my %user = ( "নাম" => "মোঃ আরিফ", "দেশ" => "বাংলাদেশ" ); while (my ($key, $value) = each %user) { print "$key: $value\n"; }
পূর্বরূপ