foreach (@servisi,$ind=0) 
                            { 
                            $servisi[$ind][5]=1; 
                            $ind++; 
                            }