#!/usr/bin/perl -w
use strict;

my @addresses = qw|http://www.foo.com http://www.foo1.com http://www.foo2.com http://www.foo.com http://www.a.com  http://www.a.com  http://www.a.com http://www.a.com|;

my %add;
for(@addresses){$add{$_}++};

print  sort {$add{$b} <=> $add{$a}} keys %add;


1;