print join',',sort {substr($a,rindex($a,'|:|')) cmp substr($b,rindex($b,'|:|'))} @origarray"