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] [bang] [bong] [bing]
- Tom
In reply to Re: A hash of lists
by tcf22
in thread A hash of lists
by wolis
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |