$share = $1;    ####### 

to
$share = $1;    #######
$smbconf{$share} = ();