Select Code to Download

sub getsubset {
    my ($data,$range) = @_;
...
    return [ map { sub{\@_}->(@{$$data[$_]}[@cis]) }
        $$range[0]-1 .. $$range[2]-1 ]
}