in reply to creating unique list from elements in an array

Is it a one-liner you want?

perl -ne '($a{$_} = 1) foreach split /,\s*/, (split /\|/)[2]; END { @a=sort keys %a; print "@a\n" }'

Shorter in shell :

awk -F\| '{print $3}' | sed 's/, */\
/g' | sort -u

[download]

In Section Seekers of Perl Wisdom