#!/usr/bin/perl -w 
use strict;

my @a1 = qw(My name is Andrew);
my @a2 = qw(My dog named  Andrew);
my $i;
my $a = 0;
my $s = 0;
my $z = 0;
my $aa;
my $ss;
my $n = "\n";
my $t = "\t";

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

First:for($a = 0; $a <= $i; $a++){
        Second:for($s = 0; $s <= $i; $s++){
        my $d = 0;
        print $a.$t;
        print $s.$n;
        if($a!=$s){
        print "Yes.->".$a.$s.$n; last}
        print "system command \$a $a, then for \$s $s".$n;
        $d++;
        }

}