@shorten = (perla, perlb, perlc, perld, perle, perld);