while (my $record = <DATA>)  {