The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use v6-alpha;


say "1..4";

my @array = (3..5);

if @array[0] == 3 { say "ok 1" } else { say "not ok 1" }
if @array[1] == 4 { say "ok 2" } else { say "not ok 2" }
if @array[2] == 5 { say "ok 3" } else { say "not ok 3" }
if +@array   == 3 { say "ok 4" } else { say "not ok 4" }