for (<*.txt>) {
    open my $fh, '<', $_ or die "Can't open $_: $!";

    my $record = join(', ', map { chomp; $_ } (<$fh>)); # <== HERE

    print "$_: $record\n";
    close $fh;
}