chomp ($line = <FH>);
@vars = split $line;