Select Code to Download

while (my $line = <LOG>) {
 my (@entry) = split(/\s+/, $line);
...

 $STATUS{$http_code}{$url}{$edate[0]}{$edate[1]}{$edate[2]}{$edate[3]}
+++;
}