> - 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'.