#!/usr/bin/perl -w

use strict;

my @a = (1,2,3,4);
my $p = \@a;

print "before:\n";
foreach (@{$p}) { print "element $_\n"; }

@a = ();

print "after:\n";
foreach (@{$p}) { print "element $_\n"; }


##</code><code>##

my $p = \@a;

##</code><code>##

my $p = [@a];