my @strings = (grep /[acgmt]{2}/, lazy ('aa' .. 'tt'), 
               grep /[acgmt]{3}/, lazy ('aaa' .. 'ttt'), 
               grep /[acgmt]{4}/, lazy ('aaaa' .. 'tttt'));