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

        foreach my $row (@$array_ref)
        {
                $result{$row->[0]} = $row->[1];
        }

        return \%result;
}