Help for this page

Select Code to Download


  1. or download this
    my $AoH = [ { name   => "Bob",
              gender => "M" },
...
              gender => "F" },
            { name   => "Mike",
              gender => "M" } ];
  2. or download this
    my $template->param( men   => all pairs where $AoH{gender] eq "M",
                     women => all pairs where $AoH{gender] eq "F" );
  3. or download this
    my ($men, $women);
my $m = 0;
...
 
my $template->param( men   => $men,
                     women => $women );