> - printf HTML "<a href=\"http://www.debian.org/ports/$f/\">%-16s</a> : %-10s\n",$f,$arch{$f};
> + my ($port)=split('-',$f);
> + printf HTML "<a href=\"http://www.debian.org/ports/$port/\">%-16s</a> : %-10s\n",$f,$arch{$f};
I suspect this is wrong. '$port' should probably be '%s'.