sub Query {
  print "@_\n"; 
  chomp(my $ans = <STDIN>); 
  return $ans;
}

push @EMP_INFO, Query("What is your name?");
push @EMP_INFO, Query("What is the location?");
push @EMP_INFO, Query("What is the age?");