And with range checking (just got around to this now)

sub r {$_[0]..$_[1],reverse(pop..pop)}
sub array_range {
    $h=pop;
    @rel{ r@{ $h->{range} } } = @{ $h->{arr} };
    [grep { defined() ? $_ : die "out of range" } @rel{ r@{ $h->{subra
+nge}} }];
}
[download]