Hello!
perl kk=0