my $str = 'aaaa';
print $str++, $/ while $str le 'dddd';