Select Code to Download

#! perl -slw
use strict;
...
__DATA__
1 2 3 4 5
3 3.14 4 4

sub rankSums3 {
    my( $aRef, $bRef ) = @_;
...

    return $aSum, $bSum;
}