for my $rec (@records) {
    print {$output} "$rec\n";
};