Select Code to Download

 my $TGROUP = { 
     COLS    => 4,
...
     TBODY   => HASH(0x8b...),
     THEAD   => HASH(0x8bc...)
}

<TRGROUP...
  <COLS ...
...
  <TBODY ....
  <THEAD ...
>

<TRGROUP...
  <COLS ...
...
  <THEAD ....
  <TBODY ...
>

 my $TGROUP = { 
     COLS    => 4,
...
     THEAD   => HASH(0x8b...),
     TBODY   => HASH(0x8bc...)
}