Select Code to Download

#!/usr/bin/perl -l

use Devel::Peek qw( Dump SvREFCNT );
...
my @b = (1, 2);
my $rb = \@b;
Dump($rb);