perl 에서요 특정 필드만 갱신하고싶습니다.

$i=0;
foreach(@TOWN_DATA){
($town_id,$town_name,$town_con,$town_ele,$town_gold,$town_arm,$town_pro,$town_acc,$town_ind,$town_tr,$town_s,$town_x,$town_y,$town_etc,$town_img,$town_intro,$town_admin,$town_juka,$town_jjtotal) =split(/<>/);

if($town_id eq $i){$town_juka = int($town_juka-($town_juka%10)+rand(2*($town_juka%10)));}

$i++
}

이런식으로 해봤는데 안되는군요..

어떻게 해야되나요??

도와주세요 ㅠㅠ