my @lines;

while (<FILE>) {
    my @fields = (split /,/, $line)[1,2,3,4,5,9,11,12,13,15,16,17,18,19,20,21,22,23,24];
    for (0..$#fields) {
        $fields[$_] = qq("$fields[$_]") unless /^"[^"]*"$/;
    }
    push @lines, @fields;
}