#!/usr/bin/perl
use strict;
use warnings;
# 748500

my %hash =('k1'=>'v1','k2'=>'v2','k3'=>'v3');

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

##</code><code>##

k2 = v2
k1 = v1
k3 = v3