Select Code to Download

use strict;
use warnings;

Global symbol "@fastarray" requires explicit package name at x line 5.
Global symbol "$setscounter" requires explicit package name at x line 
+6.
...
Global symbol "@fastarray" requires explicit package name at x line 13
+.
Global symbol "$site" requires explicit package name at x line 13.
# ... etc. ...

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