Select Code to Download

#! perl -sw
use 5.010;
...
gkey18:key1:key2:1 2 3 4 5 6 7
gkey19:key1:key2:key3:1 2 3 4 5 6 7 8
gkey20:key1:key2:1 2 3 4 5 6 7 8 9

C:\test>junk3
{
...
  gkey19 => { key1 => { key2 => { key3 => [1, 2, 3, 4, 5, 6, 7, 8] } }
+ },
  gkey20 => { key1 => { key2 => [1, 2, 3, 4, 5, 6, 7, 8, 9] } },
}