chomp(my $record = $_);