$item = 'Test';

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

print "level='$level'\n";