use strict;
use warnings;
##</code><code>##

@logs = <@ARGV>;

##</code><code>##

@tokens = split("\t",$currentLine);
my @temp = ($tokens[1], $tokens[2], $tokens[3], $tokens[4]);
$reports{$tokens[0]}=\@temp;
my @data=();
$results{$tokens[0]}=\@data;

##</code><code>##

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

##</code><code>##

foreach $logfile(@logs)

##</code><code>##

foreach my $logfile(@logs)