print("Enter a name: ");
$newname=readLine();

print("Enter a phone number: ");
$newnumber=readLine();

@names;
push(@names, "Kirk\t");
push(@names, "Kim\t");
push(@names, "Jane\t");
push(@names, "$newname\t");

@numbers;
push(@numbers, "943-3253\n");
push(@numbers, "345-2533\n");
push(@numbers, "234-6444\n");
push(@numbers, "$newnumber\n");

print("Name\t");
print("Phone\n");

print(pop(@names));
print(pop(@numbers));

print(pop(@names));
print(pop(@numbers));

print(pop(@names));
print(pop(@numbers));

print(pop(@names));
print(pop(@numbers));

sub readLine() {
	my ($output);
	$output = <STDIN>;
	chomp($output);
	return($output);
}