Select Code to Download

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

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

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