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