pkn@precious:~/scripts/perl/csv$ ./parse.pl
1.36

$VAR1 = [];