my $contents;
outer:for my $h3 ($block->look_down(_tag => 'h3'))
{
   # oder wie du den passenden "h3" Tag findest
   next if($h3->as_text() !~ /D-Lib Magazine/i);
   # Eine Ebene höner -> Ein Element weiter "p"
   my $p=$h3->parent()->content()->[$h3->pindex()+1];
   if($p && ref($p) && $p->tag() eq 'p')
   {

####################################
     # suche nach Tag "a"
     my $ahref=$p->look_down(_tag=>'a');
     if($ahref && $ahref->attr('href'))
     {
       $contents= $ahref->attr('href');
       last;
     }

####################################
     # alternativ:
     for my $ahref ($p->content_list)
     {
       if($ahref && ref($ahref) && $ahref->tag() eq 'a' && $ahref->attr('href'))
       {
         $contents= $ahref->attr('href');
         last outer;
       }
     }

####################################
     # alternativ2: (wenn man weiß wo das Element ist)
     my $ahref = $p->content()->[5]
     if($ahref && ref($ahref) && $ahref->attr('href'))
     {
       $contents= $ahref->attr('href');
       last;
     }


   }
}

if($contents)
{
 ...
}

my $contents=$html->look_down(_tag=>'a',sub{$_[0]->as_text()=~/Table of Contents/i && $_[0]->attr('href')});
if($contents->attr('href'))
{
  ...
}