Select Code to Download

sub righter {$_[0]..$_[1],reverse(pop..pop)}
sub array_range {

    $h = pop;
    @rel{ righter @{$h->{range}} } = @{$h->{arr}};
    [@rel{ righter@{ $h->{subrange}} }]
}