my @A     = 11..40;
my $start = 0;
my $stop  = 5;

print((splice@A, $start, $stop),$/) while @A;

__END__

STDOUT:

1112131415
1617181920
2122232425
2627282930
3132333435
3637383940