Select Code to Download

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

sub Query {
  print "@_\n"; 
...
push @EMP_INFO, Query("What is your name?");
push @EMP_INFO, Query("What is the location?");
push @EMP_INFO, Query("What is the age?");

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

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

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