my @fields = split "," , $line;
my $data = $fields[5];