Select Code to Download

my $array = [qw(1 2 3)];
my $array_len = @$array;

# $array_len == 3

use constant STEPPER_SEQUENCE => [
    [qw(1 0 0 1)],
...
    [qw(0 0 1 1)],
    [qw(0 0 0 1)],
];

use warnings;
use strict;
...
my $aref = [qw(1 2 3)];

say "aref ok" if @$aref == 3;

@{ STEPPER_SEQUENCE }
@( STEPPER_SEQUENCE )
(STEPPER_SEQUENCE)
@STEPPER_SEQUENCE
etc, etc, etdc