Select Code to Download

my @unwanted = qw( schema log );
my %hash = (schema=>1, log=>2, aa=>3);
...
$VAR1 = {
          'aa' => 3
        };

my @unwanted = qw( schema log );
my %hash = (schema=>1, log=>2, aa=>3);
...
          'log' => 2,
          'schema' => 1
        };