use IO::File;

my $fh = IO::File->new("<$filename")
    or die "Unable to open $filename: $!";

my $string =
    join(", ",
         map({ chomp; $_ }
             $fh->getlines)
         );

$fh->close;