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

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