my $i;
my @array = (1, 5, 6, 9, 57);

for ($i=0; $i <= (scalar(@array)-1); ++$i)
{
    ++$array[$i];
}