$file=$_;
while(<F1>)
{
$file =~ /<([^>].+)>/g;
die "Incorrect entry $1\n" unless grep { $_ eq $1 } @tags;
}