my @candidates = qw( z y a b c a d a e a f );

foreach my $question ( 'a', 'd', 'm' ) {
	my @x = do { {; grep { $_ eq $question ? last : 0 } @candidates } };
	print "$question: @x\n";
}
__END__
a: z y a b c a d a e a f
d: z y a b c a d a e a f
m: