Select Code to Download

% perl -we '%a=(schema=>1,log=>2,aa=>3); use Data::Dumper;
  print do { delete local @a{qw{ schema log }}; Dumper(\%a) }'
$VAR1 = {
          'aa' => 3
        };
%