sub foo(ARRAY $bar) {...}

# later
foo(Bar->new);

##</code><code>##

sub foo(Bar $bar) {
    print $bar->[3];
}

##</code><code>##

my $parser = HTML::TokeParser->new(\$html);

sub foo(ARRAY $token) {...}

foo($parser->get_token) {...}