my ($rep, @tokens) = split("\t",$currentLine); $reports{$rep}=\@tokens; $results{$rep}=[];