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

OUTPUT:
[bang] [bong] [bing]
[] [] [3]


##</code><code>##

 ___
/\__\ "What is the world coming to?"
\/__/ www.wolispace.com