foreach $cat ( keys %data ) {
    foreach $date ( keys %{ $data{$cat} }) {
        print "<tr>";
    	foreach $data_type (sort { $a cmp $b } keys %{ $data{$cat}{$date} } ) {
    		print "<td align='left'>$data{$cat}{$date}{$data_type}</td>";
    		#print "<br>";
    	}
    	print "</tr>";
    }
    
}

##</code><code>##


EPOC                 IP
1405799856	79.223.46.211
1405879428	79.200.95.44
1405702121	87.149.76.154
1407101135	188.138.41.140
1406108233	82.139.192.95
1407162997	87.149.66.39
1405810508	80.187.110.214
1405791762	84.159.197.17
1405870826	2.246.106.240
1406040423	87.154.119.73
1405810525	85.22.101.198
1405620262	87.149.72.59
1405603261	178.12.215.30
1405806556	80.187.102.26