Select Code to Download

use Data::Dumper;
my %hash = (a => 1, b => 2);
...
  my %h = @_;
  delete $h{'b'};
}

$VAR1 = {
          'a' => 1
...
          'a' => 1,
          'b' => 2
        };