in reply to hash reference

Place this line before the $share = $1; line.

$smbconf{$share} = undef unless exists $smbconf{$share} || $share eq '';


HTH,
Charles K. Clarkson
Clarkson Energy Homes, Inc.

In Section Seekers of Perl Wisdom