This is a good place for map:

use warnings;
use strict;
my $str  = 'abcdefghijklmnopqrstuvwxyz';
my $size = 10;
my @subs = map substr($str, $_*$size, $size), 0..(length($str)-1)/$siz
+e;
print join("\n", @subs), "\n";
[download]