Help for this page
use Data::Dumper; print Dumper \%nocapslist;
$VAR1 = { 'nor' => undef, ... 'to' => undef, 'because' => undef };
@nocapslist{ @nocapslist } = (1) x @nocapslist;