use Devel::Peek;

my $n = 1_000_000;

my @q;
for ( 1 .. $n ) {
   push @q, undef;
   shift @q;
}

Dump( @q );