Help for this page

Select Code to Download


  1. or download this
    use strict
my %a = (qr/(.+)pippo/, 1);
print keys %a;
  2. or download this
    use strict;
my %a = (1,2);
my %b = (\%a, 3);
for (keys %b) { print %$_ };