Select Code to Download

push  @{%Bad_Host_Rows->{dirname($row[1])}->{$row[0]}}, [@row];

row 0 = IP
row 1 = path
row 2 = date

$VAR1 = {'/testdir/1000/200' => { '12.123.12.12' => [ ['12.123.12.12',
+ '/testdir/1000/200/index.php', '2004-05-25 00:33:30'],
['12.123.12.12', '/testdir/1000/200/index.php', '2004-05-25 00:33:31']
+] }};

$VAR1 = {'/testdir/1000/200' => { '12.123.12.12' => [ ['12.123.12.12',
+ '/testdir/1000/200/index.php', '2004-05-25 00:33:34'],
['12.123.12.12', '/testdir/1000/200/index.php', '2004-05-25 00:33:34']
+]}};