#!/usr/local/bin/perl

open (FILE, "mailing_list.list");

while (<FILE>) {
    push (@emails, $_);
}

close (FILE);

@sorted = sort @emails;

open (FILE, ">test.list");

foreach $email (@sorted) {
    print FILE $email;
}
close (FILE);