open(OUT, "serlist.txt");
	open(OUT2, "desclist.txt");
	open(OUT3, "namefile.txt");
	my @outlist;
	while (<OUT>)
		{
		my %hash;
		my @temp = split(/;/,$_);
		$hash{'file1'} = $temp[0];
		$hash{'file2'} = <OUT2>;
		$hash{'file3'} = <OUT3>;
		
		#delete Return
		foreach (values %hash)
			{
			$_ =~ s/\n//gi;
			}
		push(@outlist,\%hash);
		print @outlist;
		}
	close(OUT);