use strict;

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

print $sql;
[download]