#!/usr/bin/perl

use strict;
use warnings;
use Tie::Counter;

tie my $counter => 'Tie::Counter';

my @fields = qw/1 2 3 4 5 6 7 8 9 10 11 12 13/;

foreach my $field(@fields) {
    print " $counter $field\n";
}