use strict;
use warnings;

my @test = ( qw / bing bong bang / );
print '['.$test[2].'] ['.$test[1].'] ['.$test[0]."]\n";

my %bits;
$bits{'one'}= \@test;
my $new =  $bits{'one'}; #new holds the array ref, not a copy of the entire array
print '['.$new->[2].'] ['.$new->[1].'] ['.$new->[0]."]\n";#to get elements from array ref, use -> operator