#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
use Text::ParseWords;

my $csvfilename = "data.csv";
open( FILE, "<$csvfilename" )
  or die("Couldn't open CSV file $csvfilename:$!\\n");

# Read lines from STDIN.
my $line   = ();
my @fields = ();
my $field  = ();
while ( $line = <FILE> ) {

    @fields = &quotewords( ',', 0, $line )
      or ( warn "problem on line $.:$_" );

    # Set variable values based on the array values.
    my $id     = $fields[0];
    my $brand  = $fields[1];
    my $dbt    = $fields[2];
    my $cdt    = $fields[3];
    my $color  = $fields[4];
    my $number = $fields[5];

    # print "@fields\n";

    my $arraySize = $#fields + 1;
    print "array size = $arraySize\n";
    print "array size = ", @fields . "\n";
    print __LINE__ + 1 . ": I'm in trouble here...\n";
    foreach $line (@fields) { print "$fields[0]\t$fields[1]\n"; }
}