my $t = shift;

##</code><code>##

    *t = \($_[0]);

##</code><code>##

for my $t ($_[0]) {
    # ...  the rest of the sub body
}