Select Code to Download

    my (@stuff) = qw [ one two three four five ];

    print join (',', $stuff[-2], $stuff[2]);

      my (@ans) = qw [ false true ];

      print $ans[ !!(assertion) ];