Select Code to Download

for my $a (@foo)
{
...
      $a->[2] .= "!"; # add ! to third field
   }
}

for my $i (0 .. $#foo)
{
...
      $foo[$i] = $b;
   }
}