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

##</code><code>##

#for testing:
$columns[1] = $n++;
print "$columns[1] \n";

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

##</code><code>##

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