my ($ids, $attri) = split /,/, $str; splice (@array,$ids, 1); sub refreshdisplay{ $id=0; $arraylist = ""; for($id=0;$id<=$#array;$id++){ if($id == 0){ $arraylist = "$array[0]"; } else{ $arraylist .= "$id,$array[$id]\n"; } } }