#!/usr/bin/perl

use strict;
use warnings;

my @urls  = qw {yahoo.com  ebay.com  google.com};
my @links = qw {yahoo      ebay      google};

my @s_ind = sort {$urls [$a] cmp $urls [$b]} 0 .. $#urls;

@urls  = @urls  [@s_ind];
@links = @links [@s_ind];

print "@urls\n";
print "@links\n";
__END__
ebay.com google.com yahoo.com
ebay google yahoo