$ perl -e 'sub concat { my $str; for ($_[0]..$_[1]) { $str .= $_;} $str;}
> print  sprintf "%s\n%s\n",  "foo", concat('a', 'e');
> '
foo
abcde