# Collection of code snippets by Arne Vajhøj 
# (likely posted to comp.os.vms/INFO-VAX, INFO-TPU, MACRO32, eksperten.dk, newz.dk, LinkedIn or other place sometime between 1990 and now) 
open(F, "num.txt");
$sum = 0;
while($line = <F>) {
    @parts = split(/\./,$line);
    $sum = $sum + ($parts[0]*100 + $parts[1]);
}
close(F);
$sum1 = ($sum - $sum % 100) / 100;
$sum2 = $sum % 100;
$res = sprintf("%d.%02d",$sum1,$sum2);
print "Sum=$res\n";
