my @sorted_email = map /([^\0]*)\z/, sort map {
  my @domain = split /\./, (/.*\@(.*)/s)[0];
  join "\0", reverse(@domain), $_;
  } @incoming_email;