Select Code to Download

my @c = (1..20);
for ($i = 0; $i <= $#c; $i++) {
...
    }
}
print join ' ', @c;

1 2 3 4 11 12 13 14 15 16 17 18 19 20

my @c = ("bob", "bob", "martha", "bob");
for (my $i = 0; $i <= $#c; $i++) {
...
    }
}
print join ' ', @c;