Select Code to Download

my @dd = qw/AA JJ CC M 1 1 3 4 D JJ 1 1 D M 3 3 4 D C M 3 3 3 D P Z/;

my @res1 = qw/M 1 1 3 4 D/;
my @res2 = qw/M 3 3 4 D/;
my @res3 = qw/M 3 3 3 D/;