foreach my $entry ( split( /;/, $file_data ) ) {
    s/^\s+//, s/\s+$// for $entry;
    push @email_list, $entry;
}
print join( "\n", sort(@email_list)), "\n";

##</code><code>##

use List::MoreUtils qw(apply);
foreach my $entry ( split( /;/, $file_data ) ) {
    push @email_list, apply { s/^\s+//; s/\s+$// } $entry;
}
print join( "\n", sort(@email_list)), "\n";