my @emails = qw/bob@a.com adam@c.com bob@c.com ralph@b.a.com/;
{
    local $,="\n";
    print @emails, $n;
    print map { scalar reverse } sort( map { scalar reverse } @emails ), $/;
}