sub read_file {
	@lines = <>;
	chomp(@lines) ;
	$oldlines = join (',',@lines);
	$oldlines =~ s/,/\n/xg;
	print $oldlines;
	

 }
 &read_file;