$level =
    $access{$item} ||
    $item =~ /^([^:]+):/ && $access{"$1:*"} ||
    $access{'*'} ||
    0;