#!/usr/bin/perl

if (!$ARGV[0]) {
        die "Please include the name of a comma-delimited text file as argument.
";
} elsif ( ($ARGV[0] eq "help") or ($ARGV[0] eq "-h") or ($ARGV[0] eq "--help") )
 {
        die "Please include the name of a comma-delimited text file as argument.
";
} else {

        $FILE = $ARGV[0];

        open FILE or die "Couldn't open file $FILE: $!\n";
        #open(FILE,"$FILE") or die "Couldn't open file $FILE: $!\n";

        while (<FILE>) {
        $file_data=<FILE>;
        }

        close FILE;

        @new_array = split /,/, $file_data;

        $i=1;

        open LOG, '>>./array_parser.log';
        print LOG localtime() . "\n";

        foreach $item (@new_array) {
                print LOG "Item i => $item\n";
                $i++;
        }

        print LOG "-------- END --------\n\n";

        close LOG;

};