Select Code to Download

my $first = 1;
@array = map {
...
      $_
   }
} @array;

my $first = 1;
@array = map {
...
   $first ||= @a-1;
   @a
} @array

foreach (0..$#array) {
   if ($array[$_] eq "c") {
...
      last;      
   }
}