use CGI; $q = new CGI; print $q->start_table(); for ( keys %{ $info{$hostkey}{$if} } ) { print $q->Tr([$q->td([$_, $info{$hostkey}{$if}{$_}])]) . "\n"; } print end_table();