Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
}
print "\@main::counts = (", join(', ', @::counts), ")\n";
  2. or download this
    0: 12; @counts = (2)
1: 34; @counts = (0)
2: 56; @counts = (0)
@main::counts = ()
  3. or download this
    0: 12; @counts = (2)
1: 12; @counts = (2)
2: 12; @counts = (2)
@main::counts = (2)
  4. or download this
    0: 12; @counts = (2)
1: 12; @counts = (2)
2: 12; @counts = (2)
@main::counts = ()