Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
our %aa; our $bb; our @cc;
print keys %aa,", $bb, @cc\n";
BEGIN {%aa=(1,11); $bb=22; @cc=(3,33); }
  2. or download this
    #!/usr/bin/perl
use strict;
BEGIN {%aa=(1,11); $bb=22; @cc=(3,33); }
our %aa; our $bb; our @cc;
print keys %aa,", $bb, @cc\n";