@array = qw(1);
print "My array @array\n";
for (0..10) { 
    for (0..@array) {$array[$_]++}
}
print "My array @array\n";