foreach my $line (@array) { 
    if($line =~/^AD/){
        print " $line";
    }
}