$parseddata{$date}++ unless grep{$_ eq "$date|$session"}@seen;
push @seen,"$date|$session";