my $retn = first {m/aa/} @a;