use strict;
use warnings;

##</code><code>##

Global symbol "@fastarray" requires explicit package name at x line 5.
Global symbol "$setscounter" requires explicit package name at x line 6.
Global symbol "%matches" requires explicit package name at x line 7.
Global symbol "@fastarray" requires explicit package name at x line 7.
Global symbol "$site" requires explicit package name at x line 8.
Global symbol "%matches" requires explicit package name at x line 8.
Global symbol "@fastarray" requires explicit package name at x line 8.
Global symbol "%matches" requires explicit package name at x line 9.
Global symbol "@fastarray" requires explicit package name at x line 9.
Global symbol "$site" requires explicit package name at x line 9.
Global symbol "$i" requires explicit package name at x line 10.
Global symbol "$i" requires explicit package name at x line 11.
Global symbol "%matches" requires explicit package name at x line 11.
Global symbol "@fastarray" requires explicit package name at x line 11.
Global symbol "$site" requires explicit package name at x line 11.
Global symbol "$lowerlimit" requires explicit package name at x line 12.
Global symbol "%matches" requires explicit package name at x line 13.
Global symbol "@fastarray" requires explicit package name at x line 13.
Global symbol "$site" requires explicit package name at x line 13.
# ... etc. ...

##</code><code>##

my @fastarray;
my @fastarray;
my $setscounter;
my %matches;
my $site;
my %sets;
                                                                                
FASTA: for (my $h=0;$h<(@fastarray);$h++) {