@var = split /;/, $line;

$X =  $var[0];

$a1 = $var[1];
$a2 = $var[2];
$C =  $var[3];
$Zs = $var[4];