#my %var = ('k1' => 'v1', 'k2' => 'v2');
my %var = ('k1', 'v1', 'k2','v2');
print $var{k2}. "\n";