Select Code to Download

select distinct E_mail from table where <conditions>

my %emailhash = ();
...

my @unique_emails = keys %emailhash;

%temp_hash = map {$_ => 1} @non_unique_list;
@unique_list = keys (%temp_hash);
...

@unique_list = sort keys (%temp_hash);