Select Code to Download

my $http_code;
my $url;
...

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

{
  my $http_code;
...
    ...
  }
}