Select Code to Download

my $temp;
my $code;
my $info;
my $count = 0;

my $length = scalar@contents;

for(my $i=0;$i<=$length;$i++) {

                if($temp == 1) {
                        $tier = "WEB";
...
                if($code1 = 0) {
                        $severity = 5;
                }