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