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

##</code><code>##

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