my %ClipNames = map { (split/,/)[0, 1] } @clips;

##</code><code>##

my %ClipNames = map { (split/,/)[1, 0] } @clips;

##</code><code>##

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