Select Code to Download

use Data::Dumper;
use Hash::Merge qw(merge);
...
    %match = %{ merge(\%match, \%-) };
}
print Dumper(\%match);

$VAR1 = {
          'digit' => [
...
                        'c'
                      ]
        };