Help for this page

Select Code to Download


  1. or download this
    my @names = qw(A B C D);
for (my $i=0; $i<4; $i++) {
...

use Data::Dumper;
print Dumper(\@A, \@B, \@C, \@D);
  2. or download this
    use strict;

...

use Data::Dumper;
print Dumper(@ARRAYS{@names});
  3. or download this
    use strict;

...

use Data::Dumper;
print Dumper(\@A, \@B, \@C, \@D);