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

##</code><code>##

my $partial = $item =~ /^([^:]+):/ ? "$1:*" : '*';
$level =
    $access{$item} //
    $access{$partial}) //
    $access{'*'} //
    999;