my(%h,$p,$q,@k,$k,$s);