And just because TI(always)MTOWTDI, just another twist on ways you can do it:

$bits->{'one'}    = \@test;          # use a reference
@{$bits->{'one'}} = @test;           # copy into $bits
$bits{'one'}      = [@test];         # copy into anon. list
$bits{'one'}      = \@{[@test]};     # um yeah, having fun
$bits{'one'}      = [@{[@test]}];    # you wouldn't REALLY do this
@{$bits{'one'}}   = @{[@{[@test]}]}; # ok, that's ridiculous
[download]