use Data::Dumper; @test = qw / bing bong bang /; print Dumper(\@test); $bits{'one'}= \@test; @new = @{$bits{'one'}}; print Dumper(\@new);