Help for this page

Select Code to Download


  1. or download this
    my @test = qw / bing bong bang /;
print '['.$test[2].'] ['.$test[1].'] ['.$test[0]."]\n";
...
my @new =  @{$bits{'one'}};  # get back the array from the hash

print '['.$new[2].'] ['.$new[1].'] ['.$new[0]."]\n";
  2. or download this
    use Data::Dumper;

...

@new =  @{$bits{'one'}};
print Dumper(\@new);