foreach my $line (@record)