Select Code to Download

(  0,  670); 3.2; 7.8; 9.4; 10.2; 12.6;

$line = <FILE>;
@split1 = split(/;/, $line);

@split1[0] = (  0,  670)
@split1[1] = 3.2
@split1[2] = 7.8
etc.

$line = <FILE>;
@split1 = split(/;/, $record);
...
@split4 = split(/\)/, @split2[1]);
$test1 = @split3[1];
$test2 = @split4[0];