Select Code to Download

sub ordinate ($) {
    my $num = shift;
...
    
    return $num;
}

          Rate Ordinate Method 3 Method 4 Method 2 Method 1
Ordinate 125/s       --     -48%     -50%     -54%     -64%
...
Method 4 252/s     102%       5%       --      -7%     -27%
Method 2 272/s     117%      13%       8%       --     -21%
Method 1 344/s     175%      42%      36%      27%       --

#!/usr/bin/perl -w
use strict;
...
    }
    return $nouser.$suffix;
}