sub util_remove_duplicates {
    my $array_ref = shift;
    my %hash;
    @hash{@{$array_ref}} = ();
    return keys %hash;
}