BEGIN {
    package My::TiedArray;

    use strict;
    use warnings;

    use Tie::Array qw( );

    our @ISA = 'Tie::StdArray';

    sub TIEARRAY {
        my $class = shift;
        bless [@_], $class
    }

    sub FETCHSIZE {
        my $self = shift;
        print("FETCHSIZE\n");
        return $self->SUPER::FETCHSIZE(@_);
    }

    $INC{"My/TiedArray.pm"} = 1;
}

use strict;
use warnings;
use feature qw( say );

use My::TiedArray qw( );

tie my @a, My::TiedArray::, qw( a b c );

say "Before loop";
for (@a) {
   say "In Loop";
}

say "";

say "Before loop";
for ((), @a) {
   say "In Loop";
}

##</code><code>##

Before loop
FETCHSIZE
In Loop
FETCHSIZE
In Loop
FETCHSIZE
In Loop
FETCHSIZE

Before loop
FETCHSIZE
In Loop
In Loop
In Loop