Select Code to Download

          if (@arrayA && $hit == length(@{$matches{$fastarray[$h]}{$si
+tekey}})) {
            $sets{$fastarray[$h]}[$setscounter]{$sitekey} = \@arrayA;
...
            print Dumper(%{$sets{$fastarray[$h]}[$setscounter]}); 
            @arrayA = ();
            }

for my $fastarray ( @fastarray ) {
    my $hash = $matches{ $fastarray };
...
                }
            }
        }