@k=(pop@k,@k)if($k[1]ne lc$k[1]);