while (my $rec = <>) {