for $bar (@bar)
{
    ++$bar;
}