foreach my $key (qw(name specialization age)) {
  print "enter your $key\n";
  print FILE "$key: " ,$info{'$key'}=<>, "\n";
}