print "Enter you name:\n";
$name = <STDIN>;
chop ($name);
print "Enter the state you live in:\n";
$state = <STDIN>;
chop ($state);
print "Enter the street you live on:\n";
$street = <STDIN>;
chop ($street);
while ($state ne "Louisiana")
	{  print "Wrong state!  Try again...\n";  
          print "Enter the state you live in:\n";
$state = <STDIN>;
chop ($state);
	
	}
print "Hello $name from $state. I see you live on $street Street.\n";