my $tv = mvsrt($cv, $oper, $amt);

##</code><code>##

my $tv = ( ($cv <=> $amt) == ($oper - 1) );

##</code><code>##

       my $absMax = 0;
        for(my $i = $params[1] - 5; $i < $params[1]; $i++){
            if($rddt[$i] > $absMax){
                $absMax = $rddt[$i];
            }
        }              
        $returnValue = $rddt[$params[1]] - $absMax;

##</code><code>##

       my $absMax = 0;
        # loop over array slice
        foreach my $rddt_value (@rddt[($params[1] - 5) .. $params[1]]){
            if($rddt_value > $absMax){
                $absMax = $rddt_value;
            }
        }              
        $returnValue = $rddt[$params[1]] - $absMax;