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