foreach (@records) {
              $buf .= "$_->[0] $_->[1] $_->[2] $_->[3]\n";
              print $buf;
}