sub _insertData { my $path = shift; my $tool = shift; my $usr = shift; ... $hl->itemCreate($path,0,-text=> $data->{$usr}->{$tool}->{feature},-style => $general);