use v5.26;
use strict;
use warnings;
use utf8;

@* = (1, 2, 3);
say scalar @*;

my $array_ref = [];
say $array_ref-0;
say $array_ref-@*;