while ($line = <FILE>) {
chomp;
($a, $b, $c, $d, $e, $f, $g, $h) = split (/\s+/,$line);