Select Code to Download

use strict;
use warnings;
...
print dump($data), "\n";
push @{$data->{hk2}[0]}, "01" .. "10";
print dump($data);

{ hk1 => 5, hk2 => [[21], [100 .. 104, 120, 23]] }
{
...
           [100 .. 104, 120, 23],
         ],
}