# Give each row a unique value (1, 2, 3...) for (1..10){ # Name each field, adding the unique value in $_ (A1, B1, C1...) print qq{ }; }