That is not a native perl solution, but it is rather short and graceful, IMHO :):
@subcats = sort(`grep $Catname $file | cut -f 2 -d '|'`);
--
With best regards
Maqs.