Select Code to Download

print $columns[$n]-8 ,"\n";

#for testing:
$columns[1] = $n++;
...

# Print the whole array with new numbering
print "@columns\n"

#for testing
print $n++,"\n";