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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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