Select Code to Download

@comb = (
  [ 'ebay', 'ebay.com' ],
  [ 'yahoo', 'yahoo.com'],
  [ 'google', 'google.com'],
);

for ( @whatever) {
  # code that extracts URL and Link here
  push @comb, [ $link, Surl ];
}

@bylink = sort {$a->[0] cmp $b->[0] } @comb;

@byurl = sort {$a->[1] cmp $b->[1] } @comb;

@links = map { $_->[0] } @bylink;

@urls = map { $_->[1] } @byurl;