#!/usr/bin/perl

use strict;
use warnings;
use Devel::Peek;

my @a = (1) x 1024;
my @b = (1) x 1024;

open my $fh, "> /dev/null" or die;
print $fh $_, "\n" for @a;
print $fh "$_\n" for @b;
close $fh;

Dump $a[0];
Dump $b[0];