my @lines=map {chomp; "'$_'"} <>;
$"=",\n";
print "(@lines)\n";