push @lecshun, [$barename , {package=>$gem, index=>$dexi}];

##</code><code>##

$lecshun[$dexi - 1] ##? <<-- what to do here ?## = inv($gem); 

##</code><code>##


sub inv {
     my $pkg = $_[0];
     my @pki = qx{cygcheck -i --inst $pkg};
     for my $ln (@pki) {
        next unless $ln=~/^Version\s+:\s(\S+)/;
        say "Pkg ".$1;
        return (datum => $1);
    }
}