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

my%hash1 = ("a",1,"b",2,"c",3,"d",4);
while (my@values = each(%hash1)){
	print "The key/value pair is @values \n";
	}