while <FOO> {
  $line=<FOO>;
  @values=split $line;