#!/usr/bin/env perl
use warnings;
use 5.014;

my $cnt = 5000000;
system($^X,'-sE',<<'_END_','--',"-cnt=$cnt");
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 4340
	$x = "abc\n" x $cnt;
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 23936
	@y = ("abc") x $cnt;
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 455604
_END_
say "---";
system($^X,'-sE',<<'_END_','--',"-cnt=$cnt");
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 4544
	$x = "abc\n" x $cnt;
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 23972
	@y = split /\n/, $x;
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 423544
_END_
say "---";
system($^X,'-sE',<<'_END_','--',"-cnt=$cnt");
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 4540
	$x = "abc\n" x $cnt;
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 23964
	for (split /\n/, $x) {
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 457512
	last }
_END_
say "---";
system($^X,'-sE',<<'_END_','--',"-cnt=$cnt");
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 4336
	$x = "abc\n" x $cnt;
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 23932
	open my $fh, '<', \$x or die $!;
	while (<$fh>) {
	say `ps -orss $$`=~s/\s+/ /gr;  # RSS 24000
	last }
_END_