Select Code to Download

$hash{$_} ||= 1 + keys %hash for @list;
$hash{$_} = $hash{$_} || 1 + keys %hash for @list;

use Data::Dump::Streamer;
my (%hash,%mash);
...
          B => 2,
          C => 3
        );