Select Code to Download

my @a1 = qw(My name is Andrew);
my @a2 = qw(My dog named  Andrew);

foreach my $a1 (@a1){
  $i++;
  #print $a1 . "\n"; 
}

First:for($a = 0; $a <= $i; $a++){
    Second:for($s = 0; $s <= $i; $s++){
...
        $d++;
    }
}

use strict;
use warnings;
...
    }
    $i++;
}