my %emailhash = ();

foreach $row (result_set) {
  $emailhash{$row->{email}} = 1;
}

my @unique_emails = keys %emailhash;