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

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

##</code><code>##

    four,three

##</code><code>##

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

      print $ans[ !!(assertion) ];