Select Code to Download

use strict;
use warnings;
...
print join(', ', @A)     , "\n";
print join(', ', @trash) , "\n";