Select Code to Download

comp1-cmd1-test1
comp1-cmd1-test2
...
comp2-cmd1-test1
comp2-cmd1-test2
comp3-cmd1-test1

%hoh = (
  "comp1" => { "cmd1" => [ "test1", "test2" ],
...
  "comp2" => { "cmd1" => [ "test1", "test2" ] },
  "comp3" => { "cmd1" => [ "test1" ] },
);<br>

%hoh = ();
foreach my $temp (sort @{$arr1} ) {
...
                  cmd => $cmd,
                  test => $test, };
}