while (<open>)
    {   
        ($name, $ID) = (split)...;
         $data{$file} = {$ID => $name};
    }