Mega Code Archive

 

Categories / Perl / Array

 

Reference Counting and Destruction

#!/usr/bin/perl use warnings; use strict; my $ref; {     my @array = (1, 2, 3);     $ref = \@array;     my $ref2 = \@array;     $ref2 = "Hello!"; } undef $ref;