my @result;
my @data = ('a42','b','c0',123,'d','1a','xyz','u2');

@result = map (m/(\d)/ && m/(a)/, @data);
print join(',',@result),"\n";

@result = map (m/(a)/ && m/(\d)/, @data);
print join(',',@result),"\n";

@result = map (m/(a)/ && m/(\d)/g, @data);
print join(',',@result),"\n";