Select Code to Download

my $counter=0;
    foreach my $element (@result) {
    print "\nCHECKPOINT\n $result[$counter]\n";
    $counter ++;
    }

foreach (<myarray>) {
  my @dataset = split /blah/, $myarray[$outercounter];
...
  $sum = 0; $mavg = 0;
  last if $outercounter == scalar(@myarray);
  }