use strict;
use warnings;

my @arrexample  = qw(The quick brown fox does stuff);;
my %hashexample = qw(k1 v1 k2 v2 k3 v3);

my @arr = (\@arrexample, \%hashexample); 

##</code><code>##

my @arrexample_copy = @{$arr[0]};

##</code><code>##

my %hashexample_copy = %{$arr[1]};