Select Code to Download

my $file = $_;
my @tags=(qw(ct sect1 sect2 sect3 sect4 sect5 sect6));
...
        unless exists $allowed_tag{$tag};
    print "Found tag $tag";
};