$x =min $x, $y; # p5
$x ?>:= $y;     # my half-assed notion:)
$x min= $y;     # p6+

$x =max $x, $y; # p5
$x ?<:= $y;     # Mine
$x max= $y;     # p6+

##</code><code>##

for ( 0 .. $#{ $hash{$set}{data} } ) {
    $hash{$set}{min} = $hash{$set}{min} < $hash{$set}{data}[$_]
                     ? $hash{$set}{min} 
                     : $hash{$set}{data}[$_];
}

##</code><code>##

$hash{$set}{min} ?<:= $hash{$set}{data}[$_] for 0 .. $#{ $hash{$set}{data} };