Select Code to Download

my @set = qw (AAAAAT ATCGAT TTTTTG GCCCCC GTGGGG);
my $lim = 0.75;
...
          ((tr/G//)/$len < $lim)    ) or $_ = '' } @set;

print "AFTER:",scalar(@set),"\n";

$VAR1 = '';
$VAR2 = 'ATCGAT';
$VAR3 = '';
$VAR4 = '';
$VAR5 = '';