Help for this page

Select Code to Download


  1. or download this
    while (@AoA) {
    my $var = shift @AoA;
    my $a = $var->[1];
    my $b = $var->[2];
}
  2. or download this
    while (@AoA) {
    my $var = shift @AoA;
    my ($a, $b) = @{$var}[1,2];
}
  3. or download this
    while (@AoA) {
    my @var = @{shift @AoA};
    my $a = $var[1];
    my $b = $var[2];
}
  4. or download this
    for my $i (0 .. $#AoA) {
    my $a = $AoA[$i][1];
    my $b = $AoA[$i][2];
}