#! perl -slw
use strict;

chomp( $_ = <DATA> );
print "($_,";
while( <DATA> ) {
    chomp;
    $_ = "'$_'";
    last if eof(DATA);
    print "$_,";
}
print "$_)";
__DATA__
one
two
three
four