Select Code to Download

use strict;
use Data::Dumper;
...
@sortslice = @{$sortarr[0..10]} [3];

print "@sortslice\n";