for my $age (qw/ 1 7 14 21 75/) {
	my $person = $age <  2 ? "baby" 
	           : $age < 13 ? "kid" 
	           : $age < 18 ? "teen"
	           : $age < 65 ? "adult"
	           : "senior";
	print "$age : \t $person \n";
}