Select Code to Download

use strict;
use warnings;
...

print "C: @index_c\n";
print "N: @index_n\n";

my $consensus = 'abc*def*ghi';
my( @index_c, @index_n );
...

print "C: @index_c\n";
print "N: @index_n\n";