while (<Rdata.txt>) { 
  my ($name, $age, $reg_no )=split":";   
  $studentsDB {$reg_no}={Name => $name,  # Line 52: uninitialized reg_no
                    Age => $age,};}