foreach $file (@find)
{
open (open, "<upload_profile/$file") or die $!};

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