foreach my $link (sort keys %foo) {
    print qq[<a href="$foo{$link}">$link</a>];
}