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