$list_total_perla+= $perla;
     $list_total_perlb+= $perlb;
     $list_total_perlc+= $perlc;
     $list_total_perld+= $perld;
     $list_total_perle+= $perle;
     $list_total_perld+= $perld;

##</code><code>##

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