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

close FILE;