$priorities{$suite}{$data{priority}}++;
my $pkgitem = "$archive $suite $data{'architecture'} ".
"$section $subsection $data{'priority'} $data{'version'} $sdescr\0";
$priorities{$suite}{$data{priority}}++;
my $pkgitem = "$archive $suite $data{'architecture'} ".
"$section $subsection $data{'priority'} $data{'version'} $sdescr\0";