push @{ $f[$i] }, $_;
  $i = ( $i + 1 ) % 3
}
close 0;