for (keys %{$_[0]}) {
  printf qq[<TD WIDTH="$table_vars{$_}"\n%s</TD>\n],
    $index->();
}