open ( INFILE, "<", "$inputfile" ) || die( "Cannot read list file $inputfile" );

	while ( <INFILE> )
	{
		$file = $_;
		chomp ( $file );
		$file_list{$file} = "1";
	}