#!/usr/bin/perl
use Data::Dumper;


$ar = [ [ 1,2,3 ] ];

$copy = [ @$ar ];

undef $ar;

print Dumper($copy);