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