Select Code to Download

until ($discovered[$i] eq ""){
 ($key, $value) = split /:\s*/, $discovered[$i];
 $arrayAoH[$j]{$key} = $value;
 $i++;
}

 $arrayAoH[$j] = { $key => $value };