Select Code to Download

my @items = (
    # 0
...

    ...
);

my @in_range = map @{$items[$_]}, 3..5;
my $item = $in_range[ int rand( @in_range ) ];