my @nicked=map({
my $data=$_;
my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));
$name=~s/,.*$//s;
my @nicks=();
my @nicked=map({
my $data=$_;
my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));
$name=~s/,.*$//s;
my @nicks=();