sub getattrval {
    my ($hashref,$attr) = @_;
    if ( %$ld{$attr} ) {
        my $tmp_href = %$ld{$attr};
# return comma delimited string instead of array
        return join (",",@$tmp_href) if scalar @$tmp_href > 1;
        return  @$tmp_href[0];
    }
    return undef;
}