Select Code to Download

use strict;
use warnings;
...
@seen{@list} = ();

print Dumper [ sort keys %seen ];