#!/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"; }