tsvars(
   a => my $a = 'A',
   b => my $b = 'B',
);

tsvars(
   a => my $a2,
   b => my $b2 = 'B2',
);