use strict;
use warnings;
use Devel::Gladiator qw/walk_arena/;
use Devel::Size qw/size/;

my $arena = walk_arena();

my $i = 0;
$| = 1;
for (@$arena) {
    next unless ref eq 'SCALAR';
    next if not defined $$_;
    printf '%4d : %16s : "%s" :', $i++, $_, $$_;
    print size($_);
    print "\n";
}
@$arena = ();