Select Code to Download

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

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