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