#!/usr/bin/perl -w 
$|++;
use strict;
use warnings;
use diagnostics;

open(STUFF,"< containers.txt") or die "containters.txt:$!";
my @slurp=<STUFF>;
close STUFF:
chomp @slurp;
printf "%s\n",join(",",@slurp);