open(FILEHAND,"ex1.csv") || die "File can't be open\n";     
my $f_line=<FILEHAND>;                                      
$f_line=~ s/\"//g;                                          
my @arr=split /\,/ ,$f_line;