sub last_paren_match_ordinal()
 {
 my $n= scalar @+;  # gives number of captures present.
 while ($n) {
    no strict 'refs';
    last if defined $$n;
    --$n;
    }
 return $n;    
 }