#!/usr/bin/perl

use warnings;
use strict;
use CGI qw(:standard);

my $foo = "bar";
my $bar = "baz";

#i've passed Tr an _array reference_
print Tr([td($foo), td($bar)]), "\n";