use Data::Dumper;

my $parser->handler( start => \&start_handler, 'tagname, self' );
$parser->parse( $content );
print Dumper($parser->{_my_vars});


sub start_handler {
    return if shift ne 'li';
    my $self = shift;
    $self->handler( start => \&title_handler, 'tagname, attr, self' );
}

sub title_handler {
    my( $tagname, $attr, $self ) = @_;
    return if $tagname ne 'a';
    return unless $attr->{title};
    my $cnow=$self->{_my_vars}->{count} || 0;
    $self->{_my_vars}->{count}++;
    $self->handler( text => sub{ $self->{_my_vars}->[$cnow]->{text} =shift(); }, 'self, dtext' );
    $self->{_my_vars}->[$cnow]->{href}=$attr->{href};
}