foreach results [lrange [split $data "|"] [expr $itemno+1] end] {