my($i,$k)=(0,'');