my $index = \&login;

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

##</code><code>##

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