in reply to Substring Sort

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

2|:|Hash,4|:|India,3|:|Stuff,1|:|Test

--
I'd like to be able to assign to an luser

In Section Seekers of Perl Wisdom