my @SplitEntries = map{[split( '|', $_)]} @Entries;

foreach $Lineref (sort {$a->[8] cmp $b->[8]} @SplitEntries) { 
  my @Fields = @$Lineref;
  # This will be in sorted order, by Artist Name
  # $Fields[0] is CassID, $Fields[1] is CDID, etc
}