use Devel::Size qw( size );

my $s = '';
for (0..1024*1024) {
   printf("%2d %3d\n", length($s), size($s));
   $s .= 'a';
}