Select Code to Download

use Data::Dumper;
print Dumper \%nocapslist;

$VAR1 = {
          'nor' => undef,
...
          'to' => undef,
          'because' => undef
        };

@nocapslist{ @nocapslist } = (1) x @nocapslist;