seek $io, 0, 0;
while (<$io>) {