my ($a,$b,$line, $itemnumber,@title,$results,%data,%olditems,$key);