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

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

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