while (<>) {
    $buf[$. % $size] = $_;
}