my %drucker = ();
$drucker{$sein_name} = $ip;
...