while (my $line=<FILE>) {
	chomp($line);
	my ($IacIsbn, $Title, $EPI, $BundleCode) = split("\t",$line);
	%IACISBN_ENUM = (
		$IacIsbn => {
			'Title' => $Title,
			'EPI' => $EPI,
			'Bundle' => $BundleCode
		}
	);
}
close FILE;