Select Code to Download

    while (my $d = $ks_sth->fetchrow_hashref()){
        $KP->{$d->{k}}{$d->{v}}++;
    }

$VAR1 = {
          '3094507' => {
...
                         '744' => '2'
                       },
        };