#! perl
use strict;
use warnings;
use Test::LeakTrace;

our $ref;

my @info = leaked_info
{
    my @array = ();
    $ref = \@array;
  # undef $ref;
};

print join(', ', @$_) for @info;