Select Code to Download

use strict;
use warnings;
...
    print @arr1[$start .. $end], "\n";
    $start = $end+1;
}

abc
de
f
gh