if ($flag21 == 1) {
                        foreach $num(@number) {
                                if (($num) eq ($rp1)) {
                                        $invseq = $seqi{$rp1};
                                        $invseq = $invseq + 1;
                                        $seqi{$rp1} .= $invseq;
                                } else {
                                        $seqi{$rp1} .= 1;
                                        $invseq = $seqi{$rp1};
                                        push @number, $rp1;
                                }
                        }
                }

##</code><code>##


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