Select Code to Download

use strict;
use warnings;
...
push @{$struct{pointers}}, "hello world", "the end is neigh", "this is
+ the end";
print "$_\n" for @{$struct{pointers}};
print "There are ", scalar @{$struct{pointers}}, " pointers allocated.
+\n";

Data is 1.
There are 0 pointers allocated.
...
the end is neigh
this is the end
There are 3 pointers allocated.