Select Code to Download

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

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

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