in reply to searching in array
@parts = map { tr/@//d; $_ } split /,?@/,join(",", reverse sort @arr), +2; [download]
Well you didn't ask for readable :)