chomp(my $input_name = <STDIN>);
push @EMP_INFO, $input_name;

##</code><code>##

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?");

##</code><code>##

for my $ei (@EMP_INFO) { print "$ei\n"; }

##</code><code>##

print map { "$_\n" } @EMP_INFO;

##</code><code>##

print "@EMP_INFO";                   # or
print join "\n", @EMP_INFO;