Select Code to Download

my $str = "One:Two:Three:four, One:Two:3:4, One:2:3:4, One:2:three";

$keywords = {
    One => {
...
        2 => { 3 => 4, three => "" }
    }
};

my $n = 0;
sub print_keywords
...
        $n--;
    }
}