use v6-perlito;
class Main {
say '1..6';
my @a;
say 'ok 1 - create array';
@a[7][4] = 3;
say 'ok 2 - set element';
if @a[7][4] != 3 {
print 'not '
}
say 'ok 3 - fetch element # ', @a[7][4];
my $b;
say 'ok 4 - create scalar';
$b[7][4] = 3;
say 'ok 5 - set element';
if $b[7][4] != 3 {
print 'not '
}
say 'ok 6 - fetch element # ', $b[7][4];
}