#open the file
while ($name_on_file = <FILE>) {
   chop $name_on_file;
   if ($name eq $name_on_file) {
      #found the name
      exit;
   };
};
#ask for the name, and everithing