my $baz = sub { "$_[0] called Test::baz" };
...
package Page {
   ...
          for ( $foo, $bar, $baz->() ) { # less characters, safe mechanism
             TR {
                 TD { $_ }; TD { $c++};
                }
          }
...
}