#!/usr/bin/perl -w

use strict;

my $original =[1,2, 3];

my $shallow_original=$original;
my $deep_original=[@$original];

$original->[1]=42;

print "original: @$original\n";
print "shallow: @$shallow_original\n";
print "deep: @$deep_original\n";