keys, values, delete, each, exists

#Keys, Values, delete, each, exists
use warnings;
$\="\n";
print "Keys & Values example";
my %kvpair = ("a",1,"b",2,"c",3);
print keys(%kvpair);
print values(%kvpair);
print "\n DELETE example returns value";
%Hash = (1,one,2,two,3,three);
print delete($Hash{1});
print %Hash;
print "\n EACH returns key and value";
%NumberWord = (1,one,2,two,3,three);
print("each()");
while (($number,$wordform)=each(%NumberWord))
{
print("$number:$wordform");
}
print "\n EXISTS returns true or false";
%test = (one,1,two, 2);
if (exists $test{one})
{
print "success";
}
else
{
print "failed";
}