if ($flag21 == 1) {
                        foreach $num(@number) {
                                if (($num) eq ($rp1)) {
					            $seqi{$rp1} += 1;
                                   $invseq = $seqi{$rp1};
                                } else { 
					snipped the rest off as it was the same