Select Code to Download

if ($flag21 == 1) {
                        foreach $num(@number) {
...
                                }
                        }
                }

if ($flag21 == 1) {
...
                                   $invseq = $seqi{$rp1};
                                } else { 
                    snipped the rest off as it was the same