#!/usr/bin/perl

use strict;
use warnings;

my @arr = (1 .. 5);

my %hash = (
            aref => \@arr,
            copy => [ @arr ],
           );

print "@{$hash{copy}}\n";
print "@{$hash{aref}}\n";

@arr = ('a' .. 'e');

print "@{$hash{copy}}\n"; # original values
print "@{$hash{aref}}\n"; # changed values