@models = map { (split /;\s*/)[1] } @models; #### @models = map { my @t = split /;\s*/; ... $t[1]; } @models;