for($i = 0; $i < scalar($#file + 1); $i++) {
$data[$i] =~ s/"//;
}