HTML::Parser

Mene pa muči tale problem - programček za parsanje naj bi izgledal takole:
(uporabljam tele zadeve:)
use HTML::Parser;
use strict;
use diagnostics;

Program:
while(< FILE >)
{
my $main_line = $_;
my @line = split(/\t/,$main_line); # delimit the line

my $fullhtml = $line[12];
my @tags;
my $p=HTML::Parser->new(start_h=> [\@tags,"text"],
end_h=>[\@tags,"text"]);

$p->parse($fullhtml);

@tags=map($_=$$_[0],@tags);

print "St. vrstice: $count. TAGI: @tags\n";

$count++;
}
Problem: Polje @tags je PRAZNO.
Če pozenem brez tistega my @tags; mi jamra da je spremenljivka nedefinirana... bi jo moral kako posebej nastavit?

VEm da imam strict... jasno da nisem dal nic notri - parser bi mi moral dati notri vrednosti - pa jih ne.