for my $range (keys %$ranges) {
        next unless exists $ranges->{$range}
        my $related_r = @{ $ranges->{$range} }[3];
# ...