Select Code to Download

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

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