my @array = (A0-7:123:C, B8-15:456:D);
my $check = A4:123:C;
my $test = join(' ', @array);
my $find = join(':', ((split(':',$check))[1,2]));
my @found = ($test =~ m/\b\w\d+\-\d+:$find\b/g);