Select Code to Download

use warnings;
use strict;
...
    $subset->{i} = 9;
    is_deeply \%hash, { i=>9, map {$_=>uc} 'a'..'h','j'..'z' };
}