tie $t, 'TestTie', \$t;