sub named_capture_map {
    my %n;
    @n{re::regnames(1)} = (1 .. $#+);
    \%n;
}