Select Code to Download

my %h = shift;

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

use strict;
use warnings;
...
my %h = @_;
delete $h{'b'};
}

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