Select Code to Download

my @problems = (1,2,3);
for my $i (0 .. $#problems) {
...
}

print for @problems;