my $s = sub { return scalar <tt?>; };
print $s->(), "\n";
print $s->(), "\n";
print $s->(), "\n";
# prints tt1, tt2, tt3