use v5.26; use strict; use warnings; use utf8; @* = (1, 2, 3); say scalar @*; my $array_ref = []; say $array_ref-0; say $array_ref-@*;