use strict ;
use warnings; 
use Data::Dumper;
use Devel::Size qw(total_size);

	# Create a lot of data
	my @newdata = (); $newdata[10_000] = "";
	for my $i ( 0 .. 10_000 )
	{	$newdata[$i] = "New" x $i; }

	print "\n\t\@newdata Size: ",total_size(\@newdata), "\n\n"; ## 150_345_584 on my system

	my @shortarray = ();
	for my $k ( 0 .. $#newdata )
	{	$shortarray[$k] = $newdata[$k];
		if ( total_size(\@shortarray) > 400 ) { last; } ## use Maxchars
	}

	print Dumper( \@shortarray );

1;