...
print "$_ added to A\n";
...
print "$_ added to trash!\n";