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