my @a = (1) x 1024; print $_, "\n" for @a;

##</code><code>##

my @b = (1) x 1024; print "$_\n" for @b;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use Devel::Size 'total_size';

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;

print total_size(\@a), "\n";
print total_size(\@b), "\n";

__END__
24636
38972