Select Code to Download

use warnings;
use strict;
...
}

print "$_ => [@{$hoa{$_}}]\n" for sort keys %hoa;

A => [0 1 2]
B => [1 2 3]
...
F => [5 6]
G => [8]
H => [10]