win>perl -lne "push @arr, $_; END{print join ',', map{'\''.$_.'\''  } @arr  }" trash.txt

#untested, only different quotation.
linux>perl -lne 'push @arr, $_; END{print join ",", map{"'".$_."'"  } @arr  }' trash.txt