%phone = ( Bob => '1234', Alice => '2345', Mary => '3456' ); while (($key, $value) = each %phone) { print "The phone number for $key is $value."; }