!#/usr/local/bin/perl

my @EMP_INFO;

print "What is your name \n";
my $input_name = <STDIN>;
push @EMP_INFO, <STDIN>;

print "What is the location name\n";
my $input_location = <STDIN>;
push @EMP_INFO, <STDIN>;

print "What is the age \n";
my $input_age = <STDIN>;
push @EMP_INFO, <STDIN>;



for ( my $x=0; $x < @EMP_INFO; $x++ ) {
print @EMP_INFO;
}