use List::Util qw(reduce);

@hash{$set}{qw(min max)} = @{ reduce {
    return [ $a, $b ] if 'ARRAY' ne ref $a;
    return
        $a->[0] < $b ? [ $b, $a->[1] ] :
        $a->[1] > $b ? [ $a->[0], $b ] :
        $a;
} @{$hash{$set}{data}} };

##</code><code>##

for my $min ($hash{$set}{min}) {
    my $data = $hash{$set}{data};
    my $i = -1;
    while(++$i < @$data) {
        $min = $min < $data->{$i}
            ? $min
            : $data->{$i};
    }
}