sub AssembleByArray
{
        my ($array_ref) = @_;
        my (%result);

        %result = map { @$_ } @$array_ref;

        return \%result;
}