Help for this page

Select Code to Download


  1. or download this
     for %hash.kv -> my $key, $val {
    say "$key corresponds to $val";
}
  2. or download this
     use strict;
use warnings;
 
...
a1
b2
EXIT
  3. or download this
    while( deal {a=>1,b=>2} my($k,$v) ) {..}