Select Code to Download

use strict;
use warnings;

@logs = <@ARGV>;

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

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