print $q->table( {-border=>"1"},
  map {
    $q->Tr([
      $q->td( {-rowspan=>'2'},$_ ) 
      . $q->td( $tab{$_}->[0] )
    ])
    . $q ->Tr([$q->td( $tab{$_}->[1] )])
  } sort keys %tab
);