my %ClipNames = map { (split/,/)[0, 1] }
                grep /^[0-9]+,[A-Z]:/ } <DATA>;