@list=(1,2,3);

if ($list[1] eq '2' && $list[2]++ eq '3') {
	print "The answer is $list[2]\n";
	} else {
	print "Insufficiently large value of 2\n";
}