sub read_file {
	@lines = <>;
	chomp(@lines) ;
	@lines = join (',',@lines);
	for $i(@lines){
		print $i . "\n";
	}

 }
 &read_file;