use v5.40;
use strict; use warnings;

my @some = ( 4, 5, 6 );
print $some[ true ], q[ ], $some[ false ];