Select Code to Download

my %foo = (
  ebay => 'ebay.com',
...

# The above hash assumes that no two links will ever be the same.
# If they might be, but the URL isn't, just switch the order.

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