Select Code to Download

use List::Util qw(reduce);

...
        $a->[1] > $b ? [ $a->[0], $b ] :
        $a;
} @{$hash{$set}{data}} };

for my $min ($hash{$set}{min}) {
    my $data = $hash{$set}{data};
...
            : $data->{$i};
    }
}