while (<LOOKUP>)
    {
        ($name, $id) = (split m{\t})[3, 4];
         print "id: $id\n";
       
        $data{$file}{$id} = $name;

    }