ZWcarp

There aren't any wildcards, but you can get a similar effect as the one you stated like this:

my $fl=0;
for my $k (keys %{$Pos_overlap{$s[5]}) {
   ++$fl if exists $Pos_overlap{$s[5]}{$k}{$s[2]};
}
if ($fl) {
[download]

Not as nice as one would like, but it's the best I can offer at this time.

...roboticus

When your only tool is a hammer, all problems look like your thumb.