Select Code to Download

#! perl -slw
use strict;
...
];

print weightedSum( $arrref );

C:\test>1152751
56

#! perl -slw
use strict;
...

print weightedSum( $arrref );