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

##</code><code>##

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