NOT TESTED.

If it was me I'd change the structure to look like:

$info{$hostkey}{$if}{if_name} = &get_snmp("$Cisco.$IfName.$if");
$info{$hostkey}{$if}{hw_type} = &get_snmp("$Cisco.$IfHwType.$if");
$info{$hostkey}{$if}{if_desc} = &get_snmp("$Generic.$ifDesc.$if");
$info{$hostkey}{$if}{if_speed} = &get_snmp("$Generic.$ifSpeed.$if");
$info{$hostkey}{$if}{bw_in} = &get_snmp("$Cisco.$IfInBitSec.$if");
$info{$hostkey}{$if}{bw_out} = &get_snmp("$Cisco.$IfOutBitSec.$if");
$info{$hostkey}{$if}{if_lineprot} = &get_snmp("$Cisco.$LineProto.$if")
+;  
$info{$hostkey}{$if}{vm_Vlan} = &get_snmp("$Specific.$vmvlan.$if");
[download]

Then you can say:

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();
[download]

or the more understandable, but less approved:

print "<table>\n";

for ( keys %{ $info{$hostkey}{$if} } )
{
   print "<tr><td>$_</td><td>$info{$hostkey}{$if}{$_}</td></tr>\n"
}

print "</table>"
[download]

--Bob Niederman, http://bob-n.com