#!/usr/bin/perl
use strict;
use warnings;

#my $in_fileName = "/Users/me/test.txt";
#my $out_fileName = "/Users/me/test-out.txt";
my ($infi, $oufi, @data_array, $line, $ctr);
my $txt1 = " Field:\t";
#open $infi, "<" . $in_fileName or die $!;
#open $oufi, ">" . $out_fileName or die $!;
while(<DATA>) {
    $line = $_;
    chomp($line);
    @data_array = split(/\t/, $line);
    $ctr = (@data_array) - 1;
    for ($ctr; $ctr >= 0; $ctr--) {
        print "$txt1,$data_array[$ctr],\t$ctr + 1, \t$.\n";
    }
    print  "Record: ", $line,"\n";
}
#close $oufi;
#close $infi;


__DATA__
1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
1a	2a	3a	4a	5a	6a	7a	8a	9a	10a	11a	12a	13a	14a	15a