Select Code to Download

C:\@Work\Perl>perl -wMstrict -e "my %h = qw(a 1  b 2  c 3  d 4);  
my @not_wanted = qw(b d);
...
Outputs:
key c => value 3
key a => value 1