print "Hello How are you?\n";
print "Please enter your reply here: ";
$count=0;
while (defined(chomp(@input[$count]=<STDIN>)))	{
	print "\nYour entry was \"@input[$count]\"";
	$count++;
}