diff --git a/lib/IdPAccountManager/ServiceProvider.pm b/lib/IdPAccountManager/ServiceProvider.pm
index 6d07563214b7316869e3005ef559065362edf322..5c6df0b23f2884f19bc7e68917fbe86213ed2779 100644
--- a/lib/IdPAccountManager/ServiceProvider.pm
+++ b/lib/IdPAccountManager/ServiceProvider.pm
@@ -40,17 +40,17 @@ sub print {
 sub list_contacts_as_array {
     my $self = shift;
     
-    my @contact_list;
+    my %contact_list;
     
     foreach my $contact_email (split /,/, $self->contacts()) {
-        push @contact_list, $contact_email;
+        $contact_list{$contact_email}++;
     }
     
    foreach my $contact_email (split /,/, $Conf::global{'dev_sp_contact'}) {
-        push @contact_list, $contact_email;
+        $contact_list{$contact_email}++;
     } 
     
-    return @contact_list;
+    return keys %contact_list;
 }
 
 ## Check if email address is a known contact (or conf.dev_sp_contact)