my %location;
@location{@links} = @urls;
print $_, ': ', $location{$_}, $/ for sort keys %location;