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

##</code><code>##

return (bless (\%Bad_Host_Rows));

##</code><code>##

%hasher = %{$badrows};
print Dumper(\%hasher);