while ($k>=2)
    {
    if ($k==1)     
        {last;}

##</code><code>##

while($k>2){
        $k=$k-1;
        print "$k\n";
        }
#and
while($k>=2){
        $k=$k-1;
        #last if $k==1;
        print "$k\n";
        }


##</code><code>##