@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";
}
[download]

~d4vis
#!/usr/bin/fnord