# create the parser, etc.

my %hash;
while (my $tag = $parser->get_tag('a')) {
   $hash{$parser->get_text} = $tag->[1]->{href};
}

for (keys %hash) {
   print qq|<a href="$_">$hash{$_}</a>\n|;
}

##</code><code>##

use URI;

# etc.

my @list;
while (my $tag = $parser->get_tag('a')) {
   my $uri = URI->new($tag->[1]->{href});
   push @list, {
      path  => $uri->path(),
      query => { $uri->query_form() },
      text  => $parser->get_text(),
   };
}
print Dumper \@list;