my @email_list = sort map ... split( /;/, $file_data );
print join( "\n", @email_list ), "\n";