@a = 1 .. 1e6;;
print total_size \@a;;
32000176

do{ my $n = $_; "$n" } for @a;;
Useless use of string in void context at (eval 23) line 1, <STDIN> line 15.

print total_size \@a;;
32000176