@parts = map { tr/@//d; $_ } split /,?@/,join(",", reverse sort @arr),2;