#!/usr/bin/perl
# your code goes here

use strict;
use warnings;

my %hash = (
	one => 1,
	two => 2,
);

while (my ($k, $v) = each %hash) {
	print "$k => $v\n";
	keys %hash;
}