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}} };