@iRecord{sort keys %iRecord} = split(/\|/, $line);