Select Code to Download

%HoA =(
##id =>["term","parent_id","left_id", "right_id"]
...
6 => ["Fingers","5","",""],
7 => ["Thumbs","6","",""]
);

my %HoA;
my $k;
...
local $" = "|";
print "$k = @{$HoA{$k}}\n";
}