Select Code to Download

$ perl -e '%x=(1 => 2); if(@x{2, 1}) { print "yes\n" } else { print "n
+o\n" }'
yes

use warnings;
use strict;
...
          2,
          undef
        ];