#!/usr/bin/perl

use customlib;
my $file = 'cr.csv';


my $lines;

rdfile($file,\$lines);


# Remove comments and blank lines
@$lines = grep(!/^\s*#/,@$lines);
@$lines = grep(!/^\s*$/,@$lines);

@$lines = join "\n", @$lines;


my @store;
foreach my $line (@$lines) {
        my @val = split(/\,/,$line);
        push (@store,$val[2]);
}

#printf "@store\n";

use Data::Dumper;
$Data::Dumper::Useqq=1;
print Dumper($lines);